во второй тур конкурса проходит обучающийся набравший от 85 до 100 баллов включительно. Ввести количество баллов и определить прошел ли он во второй тур (ввести ответ "подходит" или "не подходит")
Answers & Comments
Endok
Var A:integer; begin Readln(A); If (A>=85) and (A<=100) then Writeln('подходит') else Writeln('Не подходит'); end.
Answers & Comments
begin
Readln(A);
If (A>=85) and (A<=100) then
Writeln('подходит')
else
Writeln('Не подходит');
end.