Ответы
Ответ дал:
0
vark, p : integer;
beginfor k := 0 to 10 dobeginp := k;p := k * k;writeln(p);end;end.
beginfor k := 0 to 10 dobeginp := k;p := k * k;writeln(p);end;end.
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
k, p : integer;
begin
for k := 0 to 10 do
begin
p := k;
p := k * k;
writeln(p);
end;
end.