Вопрос по информатике:
Решите, пожалуйста, две задачи. Язык программирования: PascalABC.NET. Спасибо!
С клавиатуры вводятся два числа. Вывести на экран меньшее из них. Если числа равны, вывести «РАВНЫ»
С клавиатуры вводятся два натуральных числа. Вывести на экран четные из них. Если четных нет, вывести «НЕТ»
- 26.07.2018 18:08
- Информатика
- remove_red_eye 12566
- thumb_up 15
Ответы и объяснения 1
Внимание! Если программа не работает, обновите версию!
№1
begin
var (a,b):=ReadReal2;
if ab then Writeln(Min(a,b))
else Writeln('РАВНЫ')
end.
№2
begin
var (a,b):=ReadInteger2;
if a.IsEven then Write(a,' ');
if b.IsEven then Write(b,' ');
if a.IsOdd and b.IsOdd then Writeln('НЕТ')
end.
- 27.07.2018 03:33
- thumb_up 52
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.