Question

ПОМОГИТЕ ПОЖАЛУЙСТА У МЕНЯ В ЭКЗАМЕНЕ ЭТА ЗАДАЧА,решите задачу в программе PASCALABC.NET

Answer 1

Ответ:

program ABC;

var d: integer;

begin

readln(d);

if d > 39 AND d < 51 then writeln("легкий") else if d > 50 AND d < 71 then writeln("средний") else writeln("тяжелый");

end.