Пожаловаться
- 03.04.2018 12:45
- Информатика
- remove_red_eye 4270
- thumb_up 27
Ответы и объяснения 2
Var
a,b: integer;
begin
writeln('Введите последовательно два числа');
readln(a);
readln(b);
if a writeln('меньшее число под номером 1')
else
writeln('меньшее число под номером 2');
readln; {задержка}
end.
{Тест}
Введите последовательно 2 числа
10
15
Меньшее число под номером 1.
a,b: integer;
begin
writeln('Введите последовательно два числа');
readln(a);
readln(b);
if a writeln('меньшее число под номером 1')
else
writeln('меньшее число под номером 2');
readln; {задержка}
end.
{Тест}
Введите последовательно 2 числа
10
15
Меньшее число под номером 1.
Пожаловаться
- 04.04.2018 10:46
- thumb_up 12
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadReal2('Введите два числа');
var d:=a-b;
Writeln(d>0 ? 2 : d=0 ? 0 : 1)
end.
Примеры
Введите два числа 5.7 9
1
Введите два числа 8.5 -6.4
2
Введите два числа 2 2.0000
0
В последнем случае 0 означает, что числа равны и нет номера большего числа.
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadReal2('Введите два числа');
var d:=a-b;
Writeln(d>0 ? 2 : d=0 ? 0 : 1)
end.
Примеры
Введите два числа 5.7 9
1
Введите два числа 8.5 -6.4
2
Введите два числа 2 2.0000
0
В последнем случае 0 означает, что числа равны и нет номера большего числа.
Пожаловаться
- 05.04.2018 00:46
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы