Предмет: Информатика,
автор: Аноним
Составить программу паскаль нахождения произведения двух натуральных чисел без использования операции умножения.
Ответы
Автор ответа:
6
vara,b,z,x:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число равное первому');
readln(z);
a:=1;
while a<=z do
begin
x:=x+b;
a:=a+1;
end;
writeln('произведение равно = ',x)
end.
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число равное первому');
readln(z);
a:=1;
while a<=z do
begin
x:=x+b;
a:=a+1;
end;
writeln('произведение равно = ',x)
end.
Programust:
вот вообще без умножение, но тут приходится вводить 3-ие число, которое равно первому. Тогда все получится. Если тебя не напрегает третье число то Вот.
Похожие вопросы
Предмет: Другие предметы,
автор: 228Daskaxd
Предмет: Английский язык,
автор: Red11111111
Предмет: Русский язык,
автор: larnor
Предмет: Геометрия,
автор: keriwey
Предмет: Окружающий мир,
автор: emelyan220