Дано целое число к. вывести строку – описание оценки, соответствующей числу к (2-«неуд.», 3-«уд.», 4-«хор.», 5-«отл.» если к не лежит в диапазоне 2-5, то вывести строку «ошибка». умоляю

Объяснение:

program z;

var k:integer;

begin

readln(k);

if (k < 2) or (k > 5) then

writeln('ошибка');

if k = 2 then  

writeln('неуд.');

if k = 3 then  

writeln('уд.');

if k = 4 then  

writeln('хор.');

if k = 5 then  

writeln('отл.');

end.

case-это оператор выбора, при вводе значения, заданного этим оператором, совершается определенное действие.

program ppp;

var k:byte;

begin

writeln('введите k');

readln(k);

case k of

2:write('неудовлетворительно');

3:write('удовлетворительно');

4:write('хорошо');

5:write('отлично')

else

write('ошибка');

end;

end.

1)
Begin
var a,b:integer;
WriteLN('Введите градус: ');
ReadLN(a);
if a > 600 then begin
WriteLN('Пожарная ситуация')
end;
if b < 600 then begin
WriteLN('Рабочая ситуация')
end;
end.
2)
Begin var a:integer;
WriteLN('Введите номер дня недели: ');
ReadLN(a);
if a = 1 then begin
WriteLN('Понедельник-Количество уроков: 6')
end;
if a = 2 then begin
WriteLN('Вторник-Количество уроков: 6')
end;
if a = 3 then begin
WriteLN('Среда-Количество уроков: 6')
end;
if a = 4 then begin
WriteLN('Четверг-Количество уроков: 6')
end;
if a = 5 then begin
WriteLN('Пятница-Количество уроков: 6')
end;
if a = 6 then begin
WriteLN('Суббота-Количество уроков: 6')
end;
end.

Таких систем исчисления всего две.  Основание а = 9 и основание а =367, но в системе с основанием 367 проблематично записывать числа (символов не хватит).
Если число 3306(10) в системе исчисления с основанием а заканчивается цифрой 3, то тогда
число 3303 делится на основание системы а.
Отсюда алгоритм поиска.  Находим все делители числа 3303.
3303 = 3*1101 = 3*3*367.  Число 367 - простое. Поэтому основаниями системы исчисления 
могут быть только 3, 9, 367.  Основание =3 не подходит, так как по условию число должно заканчиваться на 3  -> основание больше 3.  Остаются 9, 367.