1) Точность вычисления в программе не задается. Указано только количество цифр дробной части (3), которое требуется вывести на экран. var x,y,a:real; begin write('x = '); readln(x); write('y = '); readln(y); if x*x-x-4>=0 then begin a:=((x*y)/(x+y))/(1+sqrt(x*x-x-4)); writeln('a = ',a:5:3); end else writeln('Корень из отрицательного числа'); end.
2) var a,b,c,d:real; begin writeln('Введите a, b, c, d:'); readln(a,b,c,d); if (a=d) then if (c=b) then writeln('Бесконечно много решений') else writeln('Решения нет') else writeln('x = ',(c-b)/(a-d)); end.
begin
window.Init(0, 0, 600, 600, clwhite);
window.IsFixedSize := true;
pen.Width := 5;
line(50, 50, 500, 50, clred);
line(50, 50, 50, 500, clblue);
line(500, 50, 500, 500, clgreen);
line(50, 500, 500, 500, clyellow);
SetFontSize(30);
DrawTextCentered(50, 0, 500, 150, 'Имя');
DrawTextCentered(50, 130, 500, 200, 'Фамилия');
DrawTextCentered(50, 200, 500, 330, 'Отчество');
DrawTextCentered(50, 330, 500, 400, 'Год рождения'); DrawTextCentered(50, 400, 500, 500, 'Группа');
end.