Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Даю 60 баллов!!! РЕБЯТА, СРОЧНО, ПОМОГИТЕ С ИКТ, ПРОШУ!)
_______________________________________
Нужно сделать в паскале.
Вводятся 2 числа, если оба числа четных, то посчитать и вывести на экран их сумму. Если хотя бы 1 из чисел четное, то посчитать и вывести на экран произведение. Если оба нечетных, то посчитать и вывести на экран их разность.

Ответ оставил Гость

Program z1;
var x,y:integer;
begin
write(Введите первое число: );
readln(x);
write(Введите первое число: );
readln(y);
if((x mod 2 = 0) and (y mod 2 = 0) ) then
writeln(Сумма: , x+y)
else if (((x mod 2 = 0) and (y mod 2 <> 0)) or ((y mod 2 = 0) and (x mod 2 <> 0))) then
writeln(Произведение: ,x*y)
else
writeln(Разность: ,x-y);
end.