Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / labrab02
.pas 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.
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 лаб. Арифметические операции