Предмет: Информатика,
автор: mariskamartiska5
Напишите программу, которая по номеру дня недели выводит его название. При вводе
неверного номера дня недели должно быть выведено сообщение об ошибке.
Ответы
Автор ответа:
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.
mariskamartiska5:
ошибка почему то
пишет что встречено else а ожидался оператор
var a :integer;
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 (‘Четыре’)ж
14.
end;
15.
readln
16.
end.
var a :integer;
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 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
да блин как сложно переделывать
нужно тогда сделать через case of
сейчас все будет
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 a of
1:writeln ('Понедельник');
2:writeln ('Вторник');
3:writeln ('Среда');
4:writeln ('Четверг');
5:writeln ('Пятница');
6:writeln ('Суббота');
7:writeln ('Воскреснье');
else
writeln('Ошибка');
end;
end.
я взяла за основу обычную программу с case of и просто переделала под твою задачу
Спасибо
Похожие вопросы
Предмет: Английский язык,
автор: Arturrkass
Предмет: Русский язык,
автор: dasheee
Предмет: Английский язык,
автор: Аноним
Предмет: Биология,
автор: slava111228