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.
3 votes Thanks 2
m0nclous
чтобы решить второй вариант достаточно поменять пару чисел, поробуй сделать это
m0nclous
если не получится, напиши. я сделаю второй вариант
Answers & Comments
Verified answer
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.