Parašė ozzWANTED· 2010 Rugs. 4 21:09:44
#2
Nors per vėlai bet.
1. Kažkas tokio turėtų būti.
int i,x,y;
i:=0;
writeln 'ivesk x';
readln x;
y = x;
while i<100 do
begin
x := x*y;
inc i;
end
writeln 'skaičius' + x;
2. writeln parašo ir padeda naujos eilutės simbolį, write - tik išveda tekstą.
3. read - skaito porcijomis, readln - skaito po eilutę.
Paskutinę programą pascaliu rašiau prieš turbūt 4 metus, tai...