Постройте алгоритм и Составьте программу по которой будет реализован следующий сценарий: компьютер запрашивает номер дня недели, после ввода компьютер сообщает название этого дня.
Const a: array [1..7] of string=('понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота', 'воскресение'); var i: byte; begin readln(i); if ((i >= 1) and (i <= 7)) then writeln('Это ', a[i]);<br>end.
а можно нормально написать?
Program denb_nedely; Var a,b,c,d,e,f: integer; Read(a) Write('понедельник') Read(b) Write( 'вторник') И так по порядку, только вместа цифр буквенные переменные) uses crt; var d:integer; begin write('Введите номер дня недели: '); readln(d); case d of 1: writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье');
а другое есть?