Ответы
Ответ дал:
0
program test;
var
i : integer;
begin
for i:=1 to 10 do
begin
if (i mod 2 = 0) then
Writeln(i);
end;
end.
var
i : integer;
begin
for i:=1 to 10 do
begin
if (i mod 2 = 0) then
Writeln(i);
end;
end.
Ответ дал:
0
Program z8;
Var i,p:integer;
Begin
p:=10;
i:=2;
while i<=20 do
begin
i:=i+p;
end;
writeln(i,' ');
end.
вот и ответ
Var i,p:integer;
Begin
p:=10;
i:=2;
while i<=20 do
begin
i:=i+p;
end;
writeln(i,' ');
end.
вот и ответ
Ответ дал:
0
Writeln надо перенести в тело цикла. Так программа выведет только число 20. А нужно вывести толь от 1 до 10 все четные (2,4,6,8,10)
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад