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

(Составьте алгоритм)

Question

Информатика

Линуха

14 мая, 22:15

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

(Составьте алгоритм)

+2

Ответы (1)

Знаешь ответ?

Анастасия · 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

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

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

(Составьте алгоритм)