uses crt;
var i,sum,k: integer;
begin
sum: =0;
k: =0;
writeln('вводите числа. 0 - конец последовательности');
repeat
read(i);
if i mod 2=1 then begin
sum: =sum+i;
inc(k);
end;
until i=0;
writeln;
writeln('среднее арифметическое нечетных чисел: ',sum/k: 5: 3);
end.
begin
write('n = ');
readln(n);
s:=0;
for i:=10 to 99 do
if (i mod 10 = n)or(i div 10 = n)
then s:=s+i;
writeln('s = ',s);
end.
Пример:
n = 1
s = 593