Составить программу паскаль нахождения произведения двух натуральных чисел без использования операции умножения.
Ответы
Ответ дал:
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:
тут и нет умножения. Until - это "пока" или "До тех пор".
x=a*b
Пока х не будет равно произведению а и б
вот что имеется ввиду в этой строчке
тут вообще не должно быть *
ни в каком виде
вот вообще без умножение, но тут приходится вводить 3-ие число, которое равно первому. Тогда все получится. Если тебя не напрегает третье число то Вот.
что вот
Ответ смотри. Я его изменил
спасибо огромнооое
Похожие вопросы
1 год назад
1 год назад
2 года назад
7 лет назад