Скачиваний:
21
Добавлен:
06.02.2016
Размер:
316 б
Скачать
program labrab02;
uses crt;
var a,b,c,sr: real;
begin
clrscr;
write( ' Введите первое число : ') ;
read(a);
write( ' Введите второе число : ') ;
read(b);
write( ' Введите третье число : ') ;
read(c);
sr:=(a+b+c)/3;
writeln( ' Среднее арифмитическое введённых чисел = ', sr:5:2) ;
readln;
end.
Соседние файлы в папке 1 лаб. Арифметические операции