Заметим, что каждую итерацию цикла, х увеличивается на 2 при начальном значении 0. Чтобы его значение стало равно 10, потребуется 5 итераций цикла.
Переменная р каждый раз увеличивается на а, пока не станет больше либо равна 203. Тогда произойдёт выход из цикла, поскольку условие станет False. Мы знаем, что в цикле 5 итераций. Следовательно, на 4-ой итерации условие всё ещё было True, а на 5-ой стало False, тогда:
uses crt; var c:char; begin clrscr; write('Введите символ '); readln(c); case c of '0'..'9':write('Это десятичная цифра, ее код ',ord(c)); 'A'..'Z':write('Это прописная латинская буква, ее код ',ord(c)); 'a'..'z':write('Это строчная латинская буква, ее код ',ord(c)); '+','-','*':write('Это знак арифметического действия, его код ',ord(c)); //убрал знак /, он в спец. символах ';','<','=','>','?','[',']','{','}','\','/':write('Это служебный символ, его код ',ord(c)); else write('Символ не входит в указанный список') end; readln end.
Заметим, что каждую итерацию цикла, х увеличивается на 2 при начальном значении 0. Чтобы его значение стало равно 10, потребуется 5 итераций цикла.
Переменная р каждый раз увеличивается на а, пока не станет больше либо равна 203. Тогда произойдёт выход из цикла, поскольку условие станет False. Мы знаем, что в цикле 5 итераций. Следовательно, на 4-ой итерации условие всё ещё было True, а на 5-ой стало False, тогда:
4 · a < 203.
5 · a ≥ 203.
a ≤ 50.75.
a ≥ 40.6.
Наибольшее подходящее число: 50.
ответ: 50var c:char;
begin clrscr;
write('Введите символ ');
readln(c);
case c of '0'..'9':write('Это десятичная цифра, ее код ',ord(c)); 'A'..'Z':write('Это прописная латинская буква, ее код ',ord(c)); 'a'..'z':write('Это строчная латинская буква, ее код ',ord(c));
'+','-','*':write('Это знак арифметического действия, его код ',ord(c)); //убрал знак /, он в спец. символах ';','<','=','>','?','[',']','{','}','\','/':write('Это служебный символ, его код ',ord(c)); else write('Символ не входит в указанный список') end; readln end.