Версия для печати темы

Автор: bonduelle 23.10.2011, 13:51

Помогите пожайлуста написать программу на free pascal

Напишите программу для решения уравнения ax = b относительно х в целых числах. Учтите, что a может принимать любые значения, в том числе и 0.

На вход программе подаются целые числа a, b, по модулю не превосходящие 30000. Требуется вывести целый корень уравнения, если он существует и единственный. Если уравнение не имеет корней, то вывести no solution. Если уравнение имеет больше одного целого корня, то вывести many solutions

в этой сказали много ошибок, ноо гдеее

program horosho;
var a,b:integer;
begin
write('a b ? ');
readln(a,;
if a=0
then
if b=0
then
writeln('many solutions')
else if b mod a<>0
then
writeln('no solution)
else writeln(b div a);
readln
end.


хеелп мии плииз

Автор: Sergio Ramos 31.10.2011, 18:00

a=0, b!=0 => нет
а=0, b=0 => бесконечно много
(a!=0, b!=0) or (a!=0, b=0) => writeln(b/a)
как-то так

Автор: граф Монте-Кристо 31.10.2011, 20:37

Цитата(Sergio Ramos @ 31.10.2011, 22:00)

Автор: Sergio Ramos 1.11.2011, 6:55

для наглядности.

Автор: bonduelle 9.11.2011, 13:15

спасииибо большое