Форум » Обработка числовых последовательностей » Задача 64. (С4. материалы для тренировки) » Ответить
Задача 64. (С4. материалы для тренировки)
chetinav: Здравствуйте, не могли бы вы оценить такое решение 64 задачи: var N: integer; m1, m2, a, i, max, R: integer; begin readln(N); m1 := 1; m2 := -1; for i:=1 to N do begin readln(a); if (a > m1) then begin if a*m1 mod 26 <> 0 then begin m2:=m1; m1:= a end else if a*m2 mod 26 <> 0 then m1:= a; end else if (a > m2)and (a*m1 mod 26 <> 0) then m2:= a; end; read(R); max:= m1*m2; if max > 0 then writeln('Вычисленное контрольное значение: ', max); if R = max then writeln('Контроль пройден.', R) else writeln('Контроль не пройден.', max); end. Не могу подобрать контрпример. Или все верно?
Ответов - 0
полная версия страницы