Регистрация
shtylev2018
06.12.2020 22:53
Информатика
Есть ответ 👍

Задание: Если оба числа четные ищем произведение если оба нечётные ищем сумму иначе выводим просто сообщение
Программа Pascalabc.net

написать код

256
297
Посмотреть ответы 2

Ответы на вопрос:

ColyaBRO
ColyaBRO
4,8(60 оценок)

var a,b:integer;

begin

 read(a,b);

 if (a mod 2<>0) and (b mod 2 <>0) then

   writeln(a+b);

   if (a mod 2=0) and (b mod 2=0) then

     writeln(a*b);

     if ((a mod 2=0) and (b mod 2<>0)) or ((a mod 2<>0) and (b mod 2=0)) then writeln('ни то, ни сё');

end.

Объяснение:

DenSkye
DenSkye
4,5(43 оценок)
Var x: real; begin readln(x); if (0< =x) and (x< 1) then     writeln('да')     else writeln('нет') end.

Популярно: Информатика