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

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

Question

Информатика

Вовуша

28 августа, 07:00

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

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

+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

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

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

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