Напишите программу,которая получает два целых числа и находит их произведение не используя операцию умножения. учтите, что числа могут быть отрицательными.пример : введите два числа: 10-15,10*(-15)=-150
136
379
Ответы на вопрос:
Var a, b, prod, i: integer; begin writeln('введите два числа: '); readln(a, b); prod : = 0; if (b < 0) then for i : = b to -1 do dec(prod, a) else for i : = 1 to b do inc(prod, a); writeln(prod) end.
Популярно: Информатика
-
tln7224.08.2020 11:06
-
AnfisaCat10.10.2020 16:09
-
Iana201017.06.2020 02:01
-
artgensh22.01.2022 08:50
-
evozniukk09.10.2022 21:44
-
IxJugerNautxl23.06.2023 10:50
-
Ruki223322.11.2021 16:35
-
turanaliev24120231.05.2023 00:28
-
1804lenalb22.11.2022 11:42
-
kristina16022506.03.2022 06:51