составить программу для вывода на экран квадратов чисел второго десятка ряда натуральных чисел.
Через for.
В (пискале)
Ответы
Ответ дал:
1
1) через for
Program Quad;
var a,i: integer;
begin
for i:=11 to 20 do begin
a := i*i;
writeln (i, '^2 = ', a);
end;
end.
2) через while
Program Pow;
var a,i: integer;
begin
i := 11;
while i <= 20 do begin
a := i*i;
writeln (i, '^2 = ', a);
i:= i+1;
end;
end.
3) через repeat
Program Pow;
var a,i: integer;
begin
i:= 11;
repeat
a := i*i;
writeln (i, '^2 = ', a);
i:=i+1;
until i>20;
end.
aliosha5970:
2 ошибки в for. Можете исправить
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад