Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Pascal ABC: Найти среднее арифметическое цифр введенного 3-значного числа.

Ответ оставил Гость

Program zadanie;
label 1;
var a,i,r,nb:integer; sr: real;
begin
1: writeln(Введите трехзначное число a);
read(a);
r:=0;
nb:=0;
while a>0 do
begin
i:=a mod 10;
r:=r+i;
nb:=nb+1;
a:=a div 10;
end;
if nb=3 then
begin
sr:=r/nb;
writeln(сумма цифр = ,r);
writeln(среднее арифметическое = ,sr);
end
else goto 1;
end.