Запишите на языке Паскаль программу, которая по номеру для недели будет выводить его название.
var a: integer;begin writeln('Введите день недели:'); readln(a); case a of 1 : writeln('Понедельник'); 2 : writeln('Вторник'); 3 : writeln('Среда'); 4 : writeln('Четверг'); 5 : writeln('Пятница'); 6 : writeln('Суббота'); 7 : writeln('Воскресенье'); else writeln('В неделе только 7 дней.'); end;end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a: integer;
begin
writeln('Введите день недели:'); readln(a);
case a of
1 : writeln('Понедельник');
2 : writeln('Вторник');
3 : writeln('Среда');
4 : writeln('Четверг');
5 : writeln('Пятница');
6 : writeln('Суббота');
7 : writeln('Воскресенье');
else writeln('В неделе только 7 дней.');
end;
end.