Пользователь вводит числа до тех пор, пока она в сумме не дадут число, кратное трем и оканчивающиеся на 3. После чего выводится сообщение о выигрыше в размере среднего арифметического введенных чисел.
Решить с помощью динамического массива, в Paskal.
Решить с помощью динамического массива, в Paskal.
More Questions From This User See All
Answers & Comments
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