Найти количество чисел последовательности, оканчивающихся на 3, до первого четного

@linkact · Регистрация: 09.02.2015

Помогите составить программу:
"Вводится последовательность целых чисел до первого четного числа. Сколько в этой последовательности чисел, оканчивающихся на "3"? Найти средн. арифметическое всех введеных чисел.

Pascal

var n,k:longint
begin
read(n);
while n mod 2 <> 0 do
begin
if (n mod 2 = 0) and ( n mod 10 =3)
then k:=k+1

@Puporev · 09.02.2015, 21:29

Pascal

var n,m,k:integer;
    s:real;
begin
k:=0;
m:=0;
s:=0;
repeat
readln(n);
m:=m+1;
if n mod 10 =3 then k:=k+1;
s:=s+n;
until n mod 2=0;
writeln('Количество оканчивающихся на 3=',k);
s:=s/m;
write('Среднее всех чисел=',s:0:2)
end.

Опции темы