Uses crt; Var a,b,c,sum,i:integer; Begin c:=0; i:=0; Writeln('Вводите числа, когда закончите - введите 0'); Repeat readln(a); if (a mod 8 = 0) and (a<>0) then begin c:=1; sum:=sum a; i:=i 1; end; if abs(a)>30000 then write('ВНИМАНИЕ! ОШИБКА! ЧИСЛО НЕ ДОЛЖНО ПРЕВЫШАТЬ 30000 ПО МОДУЛЮ! ПЕРЕЗАПУСТИТЕ ПРОГРАММУ!'); b:=b 1; Until(a=0) and (c=1) or (b>999); writeln('Ср арифм. чисел, кратных 8 = ',sum/i); End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
