Дана последовательность натуральных чисел до 0, вывести все двузначные числа, у которых старшая цифрв больше младшей. Посчитать их сумму и ср арифмитическое. Pascal ABC

Question

Информатика

Зиновий

2 февраля, 09:20

Дана последовательность натуральных чисел до 0, вывести все двузначные числа, у которых старшая цифрв больше младшей. Посчитать их сумму и ср арифмитическое. Pascal ABC

+5

Ответы (1)

Знаете ответ на вопрос?

Меля · Answer 1

Var

i, s, n:integer;

begin

n:=0; s:=0;

for i:=0 to 99 do

if i>9 then

if i div 10 > i mod 10 then begin

n:=n+1; s:=s+i;

end;

Writeln ('Сумма ', s,', ср. арифметическое ', s/n)

end.

Результат

Сумма 2970, ср. арифметическое 66