Var A,i,Max:integer; Begin Max:=0; For i:= 1 to 10 do Begin Read(a); if (Abs(A) mod 10 = 7)and(A>Max) then Max:=A; End; WriteLn(Max = ,Max); End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
