Напишите программу, перемножающую целые числа без использования операции "". Например, при умножении целых чисел nm число m надо сложить само с собой n раз (m+m+ ...+m). На языке Паскаль.

Question

Информатика

Пафнутий

1 сентября, 10:47

Напишите программу, перемножающую целые числа без использования операции "". Например, при умножении целых чисел nm число m надо сложить само с собой n раз (m+m+ ...+m). На языке Паскаль.

+3

Ответы (1)

Знаете ответ на вопрос?

Кирилична · Answer 1

Var m, n, i:integer;

begin

writeln ('введите число ') ;

readln (n) ;

writeln ('на что умножить? ') ;

readln (m) ;

for i:=1 to m-1 do n:=n+n;

writeln (n) ;

end.