У п'ятницю в 9 класі такіуроки: 1 — історія, 2 — математика, 3 — географія, 4 — інформатика, 5 фізкультура. Розробітьпрограму, за до якої визначається назва предмета зайого номером у розклад.
У п'ятницю в 9 класі такіуроки: 1 — історія, 2 — математика, 3 — географія, 4 — інформатика, 5 фізкультура. Розробітьпрограму, за до якої визначається назва предмета зайого номером у розклад.
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.
Объяснение: