Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / labrab05
.pas program labrab05;
uses crt;
var x,y,f: real;
begin
clrscr;
writeln(' Введите x ');
readln(x);
writeln(' Введите y ');
readln(y);
f:=(sqr(x)+sqr(y))/(2-sqrt(x+y));
writeln(' f = ', f:7:2);
readln;
end.
uses crt;
var x,y,f: real;
begin
clrscr;
writeln(' Введите x ');
readln(x);
writeln(' Введите y ');
readln(y);
f:=(sqr(x)+sqr(y))/(2-sqrt(x+y));
writeln(' f = ', f:7:2);
readln;
end.
Соседние файлы в папке 1 лаб. Арифметические операции