Пользователь вводит числа до тех пор, пока она в сумме не дадут число, кратное трем и оканчивающиеся на 3. После чего выводится сообщение о выигрыше в размере среднего арифметического введенных чисел.

Решить с помощью динамического массива, в Paskal.

Question

Информатика

Александринка

18 февраля, 05:03

Пользователь вводит числа до тех пор, пока она в сумме не дадут число, кратное трем и оканчивающиеся на 3. После чего выводится сообщение о выигрыше в размере среднего арифметического введенных чисел.

Решить с помощью динамического массива, в Paskal.

+2

Ответы (1)

Знаете ответ на вопрос?

Меланья · Answer 1

Var a, s, k: integer;

sr: real;

begin

k:=0; s:=0;

repeat

readln (a) ;

s:=s+a;

k:=k+1;

until (s mod 10 = 3) and (s mod 3 = 0) ;

sr:=round ((s/k) * 100) / 100;

writeln ('Выигрыш: ', sr) ;

end.

17

28

10

8

Выигрыш: 15.75