Вопрос по информатике:
Напишите программу, которая определяет, является ли введенное число четным и больше 100.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.03.2015 04:29
- Информатика
- remove_red_eye 9826
- thumb_up 42
Ответы и объяснения 2
//Скучно
//Pascal ABC.NET 3.1 сборка 1256
Var
a:integer;
begin
readln(a);
if (a>100) and (not(odd(a))) then writeln('Да') else writeln('Нет');
end.
Пример ввода:
128
Пример вывода:
Да
- 25.03.2015 00:23
- thumb_up 50
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var n:=ReadInteger('Введите натуральное число:');
if n.IsEven and (n>100) then Writeln('Число четное и больше ста')
else Writeln('Неверно, что число четное и больше ста')
end.
Тестовое решение
Введите нетуральное число: 146
Число четное и больше ста
Введите натуральное число: 38
Неверно, что число четное и больше ста
Введите натуральное число: 101
Неверно, что число четное и больше ста
- 26.03.2015 06:53
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.