Question

знайдіть суму,кількість та середнє арифметичне всіх натуральних двозначних чисел, що складаються з різних цифр
СРОЧНО

Answer 1

Ответ:

var i,s,k:integer;

begin

s:=0;

k:=0;

for i:=10 to 99 do

if i div 10 <> i mod 10 then

begin

s:=s+i;

k:=k+1

end;

writeln(s);

writeln(k);

writeln(s/k:0:1)

end.