Question

Решите задачу в программе PASCALABC.NET

Answer 1

Ответ:

• var n: integer;
• begin
• readln(n);
• if n in (40..50) then writeln('легкий')
• else if n in (51..70) then writeln('средний')
• else writeln('тяжелый') ;
• end.

Пример работоспособности: