Seemupan
5 год назад
Напишите программу, перемножающую целые числа без использования операции «*». Например, при умножении целых чисел n*m число m надо сложить само с собой n раз (m+m+…+m). На языке Паскаль.
ОТВЕТЫ
Hardy Leonard
Oct 24, 2020
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.
begin
writeln('введите число ');
readln(n);
writeln('на что умножить? ');
readln(m);
for i:=1 to m-1 do n:=n+n;
writeln(n);
end.
632
Смежные вопросы:
