Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Запишите на языке Паскаль программу, которая по номеру дня недели будет выводить его название.

Ответ оставил Гость

var x: integer;

begin
 write(Введите номер дня недели: );
readln(x);
if (x = 1)then writeln(Понедельник);
if (x = 2)then writeln(ВТорник);
if (x = 3)then writeln(Среда);
if (x = 4)then writeln(Четверг);
if (x = 5)then writeln(Пятница);
if (x = 6)then writeln(Субота);
if (x = 7)then writeln(Воскресенье);

end.