Ответы
Ответ дал:
1
Ответ:
Объяснение:
2)
var a,i:integer;
begin
a := 0;
for i := 10 to 20 do
a := a+i;
writeln(a)
end.
6)
var a:integer;
begin
a := 1;
while a <= 16 do
begin
writeln(a);
a := a+3;
end;
end.
3)
var a,i:integer;
begin
a := 1;
for i := 1 to 8 do
a := a*i;
writeln(a)
end.
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад