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

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

Question

Информатика

Ярославка

28 февраля, 08:45

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

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

+3

Ответы (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

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

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

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