Алексей
4 год назад
Пользователь вводит числа до тех пор, пока она в сумме не дадут число, кратное трем и оканчивающиеся на 3. После чего выводитсясообщение о выигрыше в размере среднего арифметического введенных чисел.Решить с помощью динамического массива, в Paskal.
ОТВЕТЫ
Lauri Reino
Oct 24, 2020
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
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
467
Смежные вопросы:
