4. Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.
3. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
program Project3;
var A, B, C : integer;
result : boolean;
begin
writeln('Vvedite tri zelyh chisla:');
read(A, B, C);
result := (A > B) AND (A < C);
if(result = true) then
write('A mezhdu B i C. Otvet: da.')
else
write('A mezhdu B i C. Otvet: net.');
readln();
end.
У вас есть текстовый файл с информацией об итогах соревнований (каждая строка имеет формат: имя + произвольное число пробелов + балл 1 + произвольное число пробелов + балл 2):
Вася 16 485
Коля 17 555
Юра 18 61
-- где:
слева указаны имена участников, а справа число баллов.
Первое число в каждой строке -- штрафные баллы набранные участниками, а второе число -- "положительные баллы", то есть если у нас есть строка: