Решите задачу в программе PASCALABC.NET. Created by vtchega. informatika-ru

Ответ:var n: integer;beginreadln(n);if n in (40..50) then writeln('легкий')else if n in (51..70) then writeln('средний')else writeln('тяжелый');end.Пример работоспособности:

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

vtchega @vtchega

July 2022 1 13 Report

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

Answers & Comments

LRSM

Verified answer

Ответ:

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

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

2 votes Thanks 1

vtchega пишет встреченно .. а ожидалось )

LRSM "пишет встреченно .. а ожидалось"
Обновите IDE (скачайте свежую версию PascalABC.NET)

LRSM n in a..b <=> (a<=n) and (n>=b)

LRSM Нововведение версии 3.6.0

решите систему уравнений x^2+y^2=53 xy=-14 Обязательно с решением...

Answer

vtchega July 2022 | 0 Ответы

Соедините понятие с правильным определением...

Answer

vtchega July 2022 | 0 Ответы

решите задачу в программе PASCALABC.NET (вместо 17 выводится рандомное значение)...

Answer

vtchega July 2022 | 0 Ответы

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

Answer

vtchega April 2022 | 0 Ответы

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

Answer

vtchega October 2021 | 0 Ответы

Answers & Comments

Verified answer

Ответ:

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

решите систему уравнений x^2+y^2=53 xy=-14 Обязательно с решением...

Соедините понятие с правильным определением...

решите задачу в программе PASCALABC.NET (вместо 17 выводится рандомное значение)...

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

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

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

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

Выполните задание на языке PASCALABC.NET,НУ ПОМОГИТЕ ПОЖАЛУЙСТА...

Выполните задание на языке PASCALABC.NET,НУ ПОМОГИТЕ ПОЖАЛУЙСТА...

рекомендуемые вопросы

Helpful Links

Helpful Social