Sairiel
5 год назад
Программная реализация ветвящихся алгоритмов. Задание 1. Создать программу для решения задачи согласно варианту:Заданы числа a и b. Если a положительное, то найти их произведение и вывести в формате «Произведение чисел … и … равно …», в остальных случаях найти сумму и вывести в формате «Сумма чисел … и … равна …».
ОТВЕТЫ
Stefcho
Oct 24, 2020
PascalABC.NET
var
a, b: integer;
Begin
Readln(a, b);
if (a > 0) then
Writeln('Произведение чисел ', a, ' и ', b, ' равно ', a * b)
else
Writeln('Сумма чисел ', a, ' и ', b, ' равна ', a + b);
end.
var
a, b: integer;
Begin
Readln(a, b);
if (a > 0) then
Writeln('Произведение чисел ', a, ' и ', b, ' равно ', a * b)
else
Writeln('Сумма чисел ', a, ' и ', b, ' равна ', a + b);
end.
875
Смежные вопросы:
