ПОЖАЛУЙСТА ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ ОТ НАЧАЛА ДО КОНЦА !!!

+ 0 -

Apple3

18 окт. 2014 г., 1:45:21 (9 лет назад)

Вот program pr; var a:integer; begin write('Введите номер дня недели: '); readln(a); case a of 1: writeln('Понедельник'); 2: writeln('Вторник'); 3: writeln('Среда'); 4: writeln('Четверг'); 5: writeln('Пятница'); 6: writeln('Суббота'); 7: writeln('Воскресенье'); else writeln('Такого дня недели нет') end; end.

+ 0 -

Достоин

18 окт. 2014 г., 3:13:58 (9 лет назад)

принял.

+ 0 -

Ritalelyuk

18 окт. 2014 г., 5:06:15 (9 лет назад)

Вот. program pr;
var a:integer;
begin
write('Введите номер дня недели: ');
readln(a);
case a of
1: writeln('Понедельник');
2: writeln('Вторник');
3: writeln('Среда');
4: writeln('Четверг');
5: writeln('Пятница');
6: writeln('Суббота');
7: writeln('Воскресенье');
else writeln('Такого дня недели нет')
end;
end.