Напишите программу, которая по номеру дня недели выводит его название. При вводе
неверного номера дня недели должно быть выведено сообщение об ошибке.
неверного номера дня недели должно быть выведено сообщение об ошибке.
More Questions From This User See All
Answers & Comments
Verified answer
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('Ошибка');
end;
end.
begin
writeln(‘Введите номер недели’);
readln (a);
case NUM of
1:writeln (‘Понедельник’);
2:writeln (‘Один’);
3:writeln (‘Два’);
4:writeln (‘Три’);
5:writeln (‘Четыре’)ж
14.
end;
15.
readln
16.
end.
begin
writeln(‘Введите номер недели’);
readln (a);
case NUM of
1:writeln (‘Понедельник’);
2:writeln (‘Один’);
3:writeln (‘Два’);
4:writeln (‘Три’);
5:writeln (‘Четыре’);
6:writeln (‘Четыре’);
end;
15.
readln
16.
end
Подробнее - на Znanija.com - https://znanija.com/task/34351660#readmore
begin
writeln('Введите номер недели');
readln (a);
case a of
1:writeln ('Понедельник');
2:writeln ('Вторник');
3:writeln ('Среда');
4:writeln ('Четверг');
5:writeln ('Пятница');
6:writeln ('Суббота');
7:writeln ('Воскреснье');
else
writeln('Ошибка');
end;
end.