Решения задач на тему ввода и вывода данных в Pascal

Решение задачи №40

program forty;
var
   a1,b1,c1,a2,b2,c2,d,x,y:real;
begin
   writeln('Введите коэффициенты:');
   write('a1 = ');
   readln(a1);
   write('b1 = ');
   readln(b1);
   write('c1 = ');
   readln(c1);
   write('a2 = ');
   readln(a2);
   write('b2 = ');
   readln(b2);
   write('c2 = ');
   readln(c2);
   d:=a1*b2-a2*b1;
   x:=(c1*b2-c2*b1)/d;
   y:=(a1*c2-a2*c1)/d;
   writeln('x = ',x:2:2);
   write('y = ',y:2:2);
end.

Назад