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

Question

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

Comments

не в паскале

---

Программа на любом языке - это один из способов записи алгоритма. Язык программирования у Вас не указан, поэтому отвечающий может использовать любой язык.

Answer 1

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

Comments

а можно не в паскале

---

Требуемый язык нужно указывать в задании (если это принципиально).