Parašė s1Nk· 2010 Rugs. 14 21:09:35
#35
Tai kai gale darašai ; vistiek išsijungia. :)
Na gal vėliau kas parašys. Daugybos programa.
program daugyba;
var a, b : integer;
begin
WriteLn('Iveskite skaičiu:');
read(a);
WriteLn ('Iveskite skaičiu:');
readLn(b);
WriteLn ('Rezultatas:',a*b);
Readln;
end.
Dabar pradedu rašyt programa kuri keltu laipnsiu. :)
Redagavo s1Nk· 2010 Rugs. 14 21:09:38