нц пока не сверху свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока не справа свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока не справа свободно
закрасить
вниз
кц
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. Подходит функция ЛЕВСИМВ, которая вырезает из первого аргумента то количество символов, которое указано во втором аргументе.
// Внимание! Если программа не работает, обновите версию!
№1
begin
var s:=ReadlnString;
s:=s.RegexReplace('ма','');
Writeln('Длина=',s.Length,': ',s)
end.
Пример
Ведьма измазала маслом карман гнома
Длина=25: Ведь иззала слом карн гно
№2
begin
var s:=ReadlnString;
Writeln('Количество букв "с" равно ',s.Where(t->t='с').Count)
end.
Пример
Ассистент профессора сидел за столом и что-то писал
Количество букв "с" равно 8
№3
begin
var s:=ReadlnString;
var d:=s.Where(t->t='е').Count-s.Where(t->t='о').Count;
if d>0 then Writeln('Буква "е" встречается чаще буквы "о"')
else
if d<0 then Writeln('Буква "о" встречается чаще буквы "е"')
else Writeln('Буквы "е" и "о" встречаются динаковое число раз')
end.
Пример
Мороз и солнце; день чудесный! Еще ты дремлешь, друг прелестный.
Буква "е" встречается чаще буквы "о"