Вопрос по информатике:
Даю 60 баллов!!! РЕБЯТА, СРОЧНО, ПОМОГИТЕ С ИКТ, ПРОШУ!)
_______________________________________
Нужно сделать в паскале.
Вводятся 2 числа, если оба числа четных, то посчитать и вывести на экран их сумму. Если хотя бы 1 из чисел четное, то посчитать и вывести на экран произведение. Если оба нечетных, то посчитать и вывести на экран их разность.
- 26.09.2017 21:01
- Информатика
- remove_red_eye 19888
- thumb_up 23
Ответы и объяснения 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.
- 27.09.2017 22:23
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.