Napisz dowolny program w paskalu, zawierający warunek logiczny " IF..." i pentle "for..." lub "while..."
//licze na naj...
program nazwa;uses crt; var x:integer;beginClrScr; for x:=1 to 20 do begin if ((x mod 2) = 0) then write(x,','); end;readln;end.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
//licze na naj...
program nazwa;
uses crt;
var
x:integer;
begin
ClrScr;
for x:=1 to 20 do
begin
if ((x mod 2) = 0) then
write(x,',');
end;
readln;
end.