-Цитата от ZontiK 
-Цитата от Kaiser [F2R] -Цитата от ZontiK
Да, выкладывают. Должен выложить сайт местный, где результаты смотрел, да и в школу должны прийти.
Ты бы лучше не задание,а решение мое просмотрел, сказал, что не так...
сейчас гляну.сколько баллов получил за нее и за экзамен весь?
Добавлено через 13 минут 45 секунд
смотри:
принцип решения ты нашел правильно
но переменные s1,s2 - являются лишними,мог бы сравнивать сами произведения сразу
скорее всего балл сняли за твои IF'ы в первом цикле.
3/4 за программу.
91 за экзамен... Две ошибки в Б части.
Насчет лишнего, не лишнего, похуй, за это точно не снимут. Мне так удобней, так занимает меньше места на бумаге.
А что не так с первым циклом? Там вроде короче уж точно не получилось бы сделать. Каждую переменную ищем независимо от остальных же, поетому на каждую переменную кроме двух последних свой иф должен быть.
вот так должно быть
Показать скрытый текст
for i := 1 to N do
begin
readln(a);
if ((a mod 3) = 0) and (a > c3) then
c3 := a
else
if ((a mod 11) = 0) and (a > c11) then
c11 := a;
if (a mod 33 = 0) and (a> c33) then
begin
if c33 > MAX then MAX := c33;
c33 := a
end
else
if c> MAX then
MAX := a;
end;
a-введенное число
с3-максимальное кратное 3
с11-максимальное кратное 11
с33-максимальное кратное 33
max-максимальное не кратное 3,11 или 33