Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика ЛР 7+8(без 5 задания) 10 Вариант / LAB7
.2.pas program Lab72;
Var a,b,c,d:real;
Begin
writeln('Введите a=');
readln(a);
writeln('Введите b=');
readln(b);
c:=(a+b)/2;
d:=sqrt(a*b);
writeln('Среднее арифм. c=', c, ', среднее геом. d=', d:3:1);
end.
Var a,b,c,d:real;
Begin
writeln('Введите a=');
readln(a);
writeln('Введите b=');
readln(b);
c:=(a+b)/2;
d:=sqrt(a*b);
writeln('Среднее арифм. c=', c, ', среднее геом. d=', d:3:1);
end.
Соседние файлы в папке Информатика ЛР 7+8(без 5 задания) 10 Вариант