Определить количество решений у системы двух линейных уравнений с двумя переменными - Pascal ABC (14624)

Формулировка задачи:

Определить количество решений у системы двух линейных уравнений с двумя переменными.

Код к задаче: «Определить количество решений у системы двух линейных уравнений с двумя переменными - Pascal ABC (14624)»

textual
var a1,b1,c1,a2,b2,c2:integer;
begin
writeln('Введите коэффициенты первого уравнения');
readln(a1,b1,c1);
writeln('Введите коэффициенты второго уравнения');
readln(a2,b2,c2);
if a1*b2<>b1*a2 then write('Одно решение')
else if (a1*b2=b1*a2)and(a1*c2=c1*a2)then write('Бесконечное число решений')
else write('0 решений');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.357 из 5


СДЕЛАЙТЕ РЕПОСТ