Конец семестра, я в завале : ( 1) написать программу, которая по вводимому числу от 1 до 11 (номеру класса) выдаёт соответствующее . например, если k=1 - «, первоклассник» , если k=9 - «, девятиклассник». учесть возможную ошибку при вводе числа с клавиатуры. 2) оператора case составить программу определения стоимости разговора по телефону с учётом скидки 20%, предоставляемой по субботам и воскресеньям. минута разговора стоит 2,3 руб.вывести: день недели звонка, сумму без скидки и сумму со скидкой. если скидка не предоставляется - написать об этом. учесть возможную ошибку при вводе числа с клавиатуры. пояснение: с клавиатуры пользователь вводит длительность разговора и номер дня недели от 1 до 7.)

program hello; var i: integer; begin  write('введите целое число от 1 до 11: ');   readln(i);   writeln('**********************************'); case i of      '1' : writeln(', ! ');       '2' : writeln(', ! ');       '3' : writeln(', ! ');       '4' : writeln(', ! ');       '5' : writeln(', ! ');       '6' : writeln(', ! ');       '7' : writeln(', ! ');       '8' : writeln(', ! ');       '9' : writeln(', ! ');       '10' : writeln(', ! ');       '11' : writeln(', ! ');       else writeln('вы должны ввести число от 1 до 11')  end;   writeln('**********************************'); end.

 

 

 

program phone; var day: integer; time: real; week: array[1..7] of string; begin  week[7]: ='воскресенье';   week[6]: ='суббота';   week[5]: ='пятница';   week[4]: ='четверг';   week[3]: ='среда';   week[2]: ='вторник';   week[1]: ='понедельник';   write('введите длительность разговора в минутах ');   readln(time);   write('введите номер дня недели ');   readln(day);   writeln('***** alphaeus is   *****');   case day of      '1'..'5':             begin                 writeln(week[day]);                 writeln('сумма без скидки - ', 2.3*time);                 writeln('сумма скидкой - ', 0.8*2.3*time);                 writeln('скидка не предоставляется');             end;       '6','7':             begin                 writeln(week[day]);                 writeln('сумма без скидки - ', 2.3*time);                 writeln('сумма скидкой - ', 0.8*2.3*time);                 writeln('вам предоставлена скидка! ');             end;       else writeln('вы ввели неправильный номер дня недели')  end;   writeln'************************************'); end.

а можно поподробнее что подразумевается под учесть ошибку, имеется ввиду если число не соответсвует от 1 до 11 вывести "ошибка при вводе"?

1) var   n: longint; begin   readln(n);   writeln(n div 60)); end. 2) var  n,m,i,j: longint; begin    readln(n);   m: =n mod 10 *10 + n div 10;   writeln(n,'+',m,'=',n+m); end. 3) var   a,b,c,d: longint; begin  readln(a,b,c,d) ;   dec(c,a);   dec(d,b);   if d< 0 then   begin   dec(c);   d: =100 -abs(d);   end;   writeln(c,' рублей ',d,' копеек'); end. 4) var   a: longint; begin   readln(a);   if odd(a) then inc(a) else inc(a,2);   writeln(a); end. если что то не  работает напиши .