Var
i:integer;
begin
writeln('Введите символ: ');readln(i);
if (i>64) and (i<91) or (i>96) and (i<123) or (i>191) then
writeln('Это буква: ',chr(i))
else
writeln('Это символ: ',chr(i));
end.
Program;
var a,b,c:real;
begin
readln(a,b,c);
writeln(a+b+c);
end.
18/3=6(эскимо)
6-5=1(эскимо)
18-3=15(стаканчиков)
P/s в лучшие ответы)
Обозначу отрицание за корень
Отсюда высказывание ложно на полуинтервале [6; 7)
Из целых чисел подходит 6.
Ответ: [6; 7)