Question

СРОЧНОООООО. ПОМОГИТЕ ПОЖАЛУЙСТА!
У п'ятницю в 9 класі такі
уроки: 1 — історія, 2 — математика,
3 — географія, 4 — інформатика, 5 фізкультура. Розробіть
програму, за допомогою якої визначається назва предмета за
його номером у розклад.​

Answer 1

Ответ:

program p1;

var n:Integer;

begin

Writeln('Введите номер урока: ');

Readln(n);

if n = 1 then Writeln('історія') else

if n = 2 then Writeln('математика') else

if n = 3 then Writeln('географія') else

if n = 4 then Writeln('інформатика') else

if n = 5 then Writeln('фізкультура');

end.

Объяснение: