составить программу выводящую название дня недели по его номеру (Pascal)

Question

составить программу выводящую название дня недели по его номеру (Pascal)

Чингис Сангадеев Ученик (179), закрыт 11 лет назад

Cоставить программу выводящую название дня недели по его номеру (Pascal)

Answer 1

const
d: array [1..7] of string =
('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
n: integer;
begin
write('Номер дня недели? ');
readln(n);
if (1 <= n) and (n <= 7) then writeln(d[n]) else writeln('Ошибка ввода');
end.

Answer 2

Задай переменную для числа = дню недели.
Проверь её оператором условия на соответствие каждому дню и в случае выполнения выведи на экран, а несоответствия перейди к следующему.
Можешь щегольнуть и учесть невозможные варианты (типа отрицательных, дробных чисел или текста)

А можешь спецоператором Case of (кажется зовётся) по нажатию клавиши сразу вывести на экран.

Answer 3

program nedel;
uses crt;
var
n:integer;
begin
clrscr;
writeln('Ââåäèòå íîìåð');
readln(n);
if n=1 then writeln('Понедельник');
if n=2 then writeln('Вторник');
if n=3 then writeln('Среда');
if n=4 then writeln('Четверг');
if n=5 then writeln('Пятница');
if n=6 then writeln('Суббота');
if n=7 then writeln('Воскресенье');
readkey;
end.