
Павел
4 год назад
Решить задачу в Паскале: Найти сумму чисел а и b, если оба чётные и неотрицательные их произведение в противном случае.Пожалуйста посчитайте!!!
ОТВЕТЫ

Виолетка
Oct 24, 2020
Var a,b: integer;
Begin
Readln(a,b);
If (a mod 2=0) and (b mod 2=0) and (a>0) and (b>0) then write(a+b) else write(a*b);
End.
Begin
Readln(a,b);
If (a mod 2=0) and (b mod 2=0) and (a>0) and (b>0) then write(a+b) else write(a*b);
End.
751
Смежные вопросы: