Задание:
ПОМОГИТЕ ПОЖАЛУЙСТА! *О*составить программу, которая запрашивает 2 числа если они оба четные, то сумма. Если они разные то найти произведения
Решение:
vara,b,pr,pr1: real; beginread (a,b); if (a mod 2)=0) and (b mod 2)=0) thenpr: =a+b; if a<>b then pr1: =a*b; write (pr,pr1); end.
Знаете другой ответ?