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

Question

Информатика

Антон

13 августа, 09:45

Напишите программу, перемножающую целые числа без использования операции "". Например, при умножении целых чисел 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.