Ввести целое число, найти его квадрат, не используя операцию умножения. (составьте алгоритм)

dreakalex dreakalex    2   10.08.2019 21:40    0

Ответы
муксик муксик  04.10.2020 10:08
Var a,a2,i:integer;
begin
write('a = ');
readln(a);
a2:=0;
for i:=1 to a do a2:=a2+a;
writeln(a,'^2 = ',a2);
end.

Пример:
a = 7
7^2 = 49
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика