var i, sum:integer; proz:longint; begin for i:=10 to 26 do begin if i mod 2 = 0 then sum:=sum i else if i mod 2 <>0 then proz:=proz*i; end; writeln('summa=',sum); writeln('proizvedenie=',proz); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
