1)Найти произведение двухзначных чисел, кратных 12.
2)Даны натуральные числа от 2222 до 4444. Найти среднее арифметическое чисел, в которых вторая цифра равна первой.
РЕШЕНИЕ ПАСКАЛЬ
Ответы
Ответ дал:
1
Ответ:
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.
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
2 года назад
7 лет назад