Напишите наибольшее число х, для которого ложно высказывание:
не( (х> 50) или не (х чётное) ) ?

нц пока не сверху свободно

закрасить

вправо

кц

нц пока сверху свободно

вправо

кц

нц пока справа свободно

закрасить

вправо

кц

нц пока не справа свободно

закрасить

вниз

кц

нц пока справа свободно

вниз

кц

нц пока не справа свободно

закрасить

вниз

кц

15.2 Решение

var k, n, a, amax: integer;

begin

amax:=0;

readln(n);

for k:=1 to n do

begin

readln(a);

if (a mod 5 = 0) and (a>amax) then

amax:=a;

end;

writeln(amax);

end.

Для проверки правильности работы программы необходимо использовать следующие тесты:

Объяснение:

?? = ЗНАЧЕН

? = ЛЕВСИМВ

Объяснение:

Рассмотрим выражение ОСТАТ (23;9)+??( СЦЕПИТЬ (23;9))

1) ОСТАТ (23;9) находит остаток от деления на 9. Результатом будет число 5, т.к. 5 - остаток от деления числа 23 на 9.

2) (СЦЕПИТЬ (23;9)) склеивает аргументы в строку, то есть результатом будет строка "239"

3) Т.к. ??( СЦЕПИТЬ (23;9)) складывают с числом 5, то и ??( СЦЕПИТЬ (23;9))  должно быть числом, иначе будет ошибка. Значит ?? - функция, которая преобразовывает строку в число, а такой функцией является ЗНАЧЕН

4) ОСТАТ (23;9)+ЗНАЧЕН( СЦЕПИТЬ (23;9)) = 5 + 239 = 244

Рассмотрим выражение ?(ОСТАТ (23;9)+??( СЦЕПИТЬ (23;9));2)

1) ОСТАТ (23;9)+??( СЦЕПИТЬ (23;9)) = 244, следовательно выражение можно переписать как ?(244;2)

2) Функция ? принимает 2 аргумента, а результатом работы должно быть 24. Видим, что 24 - это первые 2 цифры первого аргумента, то есть первые 2 цифры числа 244. Подходит функция ЛЕВСИМВ, которая вырезает из первого аргумента то количество символов, которое указано во втором аргументе.