Форум » Обработка числовых последовательностей » 27, №61 » Ответить
27, №61
RezuanB: скажите пожалуйста, возможно ли такое решение №61? var i,a,m0,m1,m2,R,E,N:integer; begin readln(N); m0:=-1; m2:=-1; m1:=-1; R:=1; readln(a); for i:=2 to N do begin if a mod 3=0 then if a>m0 then m0:=a; if a mod 3=1 then if a>m1 then m1:=a; if a mod 3=2 then if a>m2 then m2:=a; readln(a); if a mod 3=0 then if a+m0>R then R:=a+m0; if a mod 3=1 then if a+m2>R then R:=a+m2; if a mod 3=2 then if a+m1>R then R:=a+m1; end; readln(E); Writeln('Вычисленное контрольное значение: ',R); if R=E then writeln('Контроль пройден') else writeln('Контроль не пройден'); end.
Ответов - 2
Поляков: RezuanB пишет: возможно ли такое решение №61? Прежде, чем делать проверку if a+m0>R, хорошо бы убедиться, что m0 не равно -1.
RezuanB: Поляков пишет: Прежде, чем делать проверку if a+m0>R, хорошо бы убедиться, что m0 не равно -1.Точно! Я понял. Спасибо
полная версия страницы