Verified answer

Ответ:

1.

var i:integer;

p:real;

begin

p:=1;

writeln ('Двузначные числа, кратные 12');

for i:=12 to 99 do

if i mod 12 = 0 then

begin

p:=p*i;

write (i,'  ')

end;

writeln;

write ('Произведение двузначных чисел, кратных 12 равно ',p)

end.

2.

var i,s,k:integer;

begin

writeln ('Натуральные числа, в которых вторая цифра равна первой, из промежутка [2222,4444]');

for i:=2222 to 4444 do

if i div 1000 = i div 100 mod 10 then

begin

write (i,'  ');

s := s+i;

k:=k+1;

end;

writeln;

write ('Cреднее арифметическое натуральных чисел, в которых вторая цифра равна первой, из промежутка [2222,4444] равно ',s/k:0:3)

end.