Var
a: integer;
begin
writeln('Введите номер дня недели');
read(a);
if a = 1 then writeln('Понедельник');
if a = 2 then writeln('Вторник');
if a = 3 then writeln('Среда');
if a = 4 then writeln('Четверг');
if a = 5 then writeln('Пятница');
if a = 6 then writeln('Суббота');
if a = 7 then writeln('Воскресенье') else write('Ошибка');
end.
При выполнении программы, если ввести значение от 1-7, то пишет название дня недели и ошибка, а нужно только название дня недели
PascalABC.net
Var
a: integer;
begin
writeln('Введите номер дня недели');
read(a);
if a = 1 then writeln('Понедельник');
if a = 2 then writeln('Вторник');
if a = 3 then writeln('Среда');
if a = 4 then writeln('Четверг');
if a = 5 then writeln('Пятница');
if a = 6 then writeln('Суббота');
if a = 7 then writeln('Воскресенье') else write('Ошибка');
end.
При выполнении программы, если ввести значение от 1-7, то пишет название дня недели и ошибка, а нужно только название дня недели
PascalABC.net
a: integer;
begin
writeln('Введите номер дня недели');
read(a);
if a = 1 then writeln('Понедельник');
if a = 2 then writeln('Вторник');
if a = 3 then writeln('Среда');
if a = 4 then writeln('Четверг');
if a = 5 then writeln('Пятница');
if a = 6 then writeln('Суббота');
if a = 7 then writeln('Воскресенье') else write('Ошибка');
end.
При выполнении программы, если ввести значение от 1-7, то пишет название дня недели и ошибка, а нужно только название дня недели
PascalABC.net
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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.