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

Написать б/с и программу ввода трех целых чисел и вычисления их среднего арифметического

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

Program n1; 
var a,b,c,s:integer; 
begin 
readln(a); 
readln(b); 
readln(c); 
s:=(a+b+c)/3; 
writeln(среднее арифметическое=,s); 
end.