Вопрос по информатике:
Помогите пожалуйста решить в Паскале.
Для четырех произвольных чмсел,введеных с клавиатуры,выведите на экран соответствующие результаты.Если все числа не превышают 30,то выведите их удвоенное произведение.Если последнее число четно,то выведите произведение первых двух чисел,уменьшенное в 10 раз.Если выполняются одновременно два перечисленных выше условия,то выведите эти числа без изменения.Иначе,выведите разность первого и последнего чисел.Составьте соответствующие отладочные примеры и проверьте работу каждой програмы.
- 27.10.2017 07:11
- Информатика
- remove_red_eye 1409
- thumb_up 61
Ответы и объяснения 1
var
a, b, c, d : integer;
begin
read (a, b, c, d);
if (a <= 30) and (b <= 30) and (c <= 30) and (d <= 30) and (d mod 2 = 0) then
write (a, ' ', b, ' ', c, ' ', d)
else if (a <= 30) and (b <= 30) and (c <= 30) and (d <= 30) then
write (2 * a * b * c * d)
else if d mod 2 = 0 then
write (a * b / 10)
else write (a - d);
end.
- 27.10.2017 23:25
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.