Отправлено: 18.05.16 16:30. Заголовок: 27 (C4) Из задач для тренировки. №64

Получился следующий код.
program zadanie64;
var a,n,i,m26:integer; R,R0:longint;
begin
readln(n);
m26 := 0; R := 0;
readln(a);
for i := 2 to n do
begin
if (a mod 26 <> 0) and (a > m26) then m26 := a;
readln(a);
if (a * m26 > R) and (a * m26 mod 26 <> 0) then R := a * m26;
end;
readln(R0);
if R0=R then
begin
writeln('Вычисленное контрольное значение ',R);
write('Контроль пройден');
end
else begin writeln('Вычисленное контрольное значение ',R); writeln('Контроль не пройден'); end;
end.
В программе находим только максимальное значение, не делящееся на 26. Затем сравниваем произведения.
Является ли это верным и упрощенным решением данной задачи? Много подбирал тесты, все проходило.

 Отправлено: 08.06.16 19:19. Заголовок: DenGZM пишет: Являет..

DenGZM пишет:

цитата:

Является ли это верным и упрощенным решением данной задачи?

Вот контрпример:

 4  
 8 7 13 1 
 91

 Отправлено: 09.06.16 14:03. Заголовок: При таких данных выв..

При таких данных выводит:
Вычисленное контрольное значение 56
Контроль не пройден

 Отправлено: 09.06.16 14:07. Заголовок: DenGZM пишет: При та..

DenGZM пишет:

цитата:

При таких данных выводит: Вычисленное контрольное значение 56 Контроль не пройден

Ну вот и я пр это. Это неверный ответ.