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

Дано трехзначное число. найти среднеарифмитическое его цифр и прибавить произведение первой и последней цифры

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

Var a,b,c,g,b1,s:integer;
cr:real;
begin
Writeln(Введите число);
Readln(a);
b1:=a mod 10;
c:=a div 10;
c:=c div 10;
g:=b1*c;
while a>0 do
begin
b:=a mod 10;
s:=s+b;
a:=a div 10;
end;
cr:=s/3;
Writeln(Среднее число равно ,cr);
Writeln(Произведение первой и последней цифрой равно ,g);
end.