Даны целые числа a b c . проверить истинность высказывания справедливо двойное неравенство a меньше b меньше c
matvejp816
2
17.10.2019 14:05
2
Другие вопросы по теме Информатика
диля1234567асем
10.09.2019 05:30
mashashhukina
04.07.2019 04:20
artymukina
27.11.2020 10:38
NastyaVelikaya2000
27.11.2020 10:37
lislibert
21.11.2019 23:34
130181
21.11.2019 23:33
2006215
10.11.2019 15:14
1ЛиКа6
17.01.2020 06:58
Популярные вопросы
- Вследующих микродиалогах замени подчёркнутые слова и выражения...
2 - Летел дорогою прямой ( прямой )-морфологический разбор...
2 - Доведіть що значення виразу 2^12+5^3 ділиться націло на 21. іть...
2 - При каких значениях а корни уравнения 4х^2+(3а-5|а|+2)××х-3=0 равны...
2 - Запиши число в котором 20 дес. 1 класса и 950 ед 2 класса, поменяй...
2 - Спорт+порт+орт= дедка+бабка+репка=сказка заменить буквы одинаковыми...
3 - Выпишите слово,где неверно выделена буква,обозначающая ударный...
3 - 10. выпиши из текста сложные слова. разбери их по составу. слово,...
3 - Однокоренные слова к словам: сиять,чудо...
1 - Какая была цель у профессора керна и доуэля, из романа голова профессора...
2
program TestABC;
var
a, b, c: Integer;
begin
Write ('Введите a, b, c: ');
Readln (a, b, c);
if (a < b) and (b < c) then
WriteLn ('a < b < c - справедливо')
else
WriteLn ('a < b < c - не справедливо');
ReadLn;
end.