Program_z1; var n,So,Sp,i:integer; begin read(n); So:=0; Sp:=0; for i:=1 to n do begin if i>0 then Sp:=Sp i else So:=So i; end; if So>Sp then write('So', So) else write('Sp',Sp); readln;readln; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.