Напишите программу, которая получает два целых числа и находит их произведение, не используя операцию умножения.
Учтите, что числа могут быть отрицательными. Через цикл WHILE!!!!
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Krya
var
a,b,p,i,z:integer;
begin
writeln('a');
readln(a);
writeln('b');
readln(b);
z:=b;
if b<0 then z:=-b;
for i:=1 to z do
begin
p:=p+a;
end;
if b<0 then p:=-p;
writeln('p=',p);
end.
ВТОРОЙ ВАРИАНТВЫПОЛНЕНИЯ ПРОГРАММЫ:
var
a,b,x,y,z:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
z:=b;
if b<0 then z:=-b;
for y:=1 to z do begin
x:=x+a;
end;
if b<0 then x:=-x;
writeln('Произведение чисел = ',x);
end.
a,b,p,i,z:integer;
begin
writeln('a');
readln(a);
writeln('b');
readln(b);
z:=b;
if b<0 then z:=-b;
for i:=1 to z do
begin
p:=p+a;
end;
if b<0 then p:=-p;
writeln('p=',p);
end.
ВТОРОЙ ВАРИАНТВЫПОЛНЕНИЯ ПРОГРАММЫ:
var
a,b,x,y,z:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
z:=b;
if b<0 then z:=-b;
for y:=1 to z do begin
x:=x+a;
end;
if b<0 then x:=-x;
writeln('Произведение чисел = ',x);
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
