Ответы
Ответ дал:
0
var i:integer;
begin
clrscr;
writeln('Cikl For:');
for i:=2 to 30 do
if i mod 2=0 then write(i,' ');
writeln;
writeln('Cikl While:');
i:=2;
while i<=30 do
begin
if i mod 2=0 then write(i,' ');
i:=i+1;
end;
writeln;
writeln('Cikl Repeat:');
i:=2;
repeat
if i mod 2=0 then write(i,' ');
i:=i+1;
until i>30;
readln
end.
Ответ дал:
0
program raf105;
var i:integer;
begin
for i:=10 to 99 do
if (i mod 2)<>0
then write(i,' ');
end.
Язык программирования PascalABC
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад