Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Во второй тур конкурса проходит обучающийся набравший от 85 до 100 баллов включительно. Ввести количество баллов и определить прошел ли он во второй тур (ввести ответ "подходит" или "не подходит")

Ответ оставил Гость

Var A:integer;
begin
Readln(A);
If (A>=85) and (A<=100) then
Writeln(подходит)
else
Writeln(Не подходит);
end.