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