Question

Написать программу (с program. var и тд)
Дано семизначное число. Найти сумму,произведение и среднее арифметическое этих цифр

Answer 1

var a,b,i,s,p:integer;
begin
readln(a);
s:=0; p:=1;
for i:=1 to 7 do
 begin
 b:=a mod 10;
 s:=s+b;
 p:=p*b;
 a:=a div 10;
 end;
writeln('s = ',s,' p = ',p,' sr = ',s/7:5:2);
end.

Пример:
1389546
s = 36 p = 25920 sr = 5.14

Answer 2

Программа прикреплена в приложении
_________________________________________
Примеры:
_________________________________________
Введите семизначное число: 4564564
Среднее арифметическое цифр числа: 4.85714

Введите семизначное число: 6535684
Среднее арифметическое цифр числа: 5.29

Введите семизначное число: 6563258
Среднее арифметическое цифр числа: 5.00

62a7a55be9b86c66da69de37c350379e.pas