Пожалуйста сделайте как можно быстрее!! Срочно надо.
1. Разработайте и напишите программу в среде посхаль согласно заданию.
а)Составить программу вычисления х по формуле x=a/b(если a и b равны нулю, выдать сообщение "множество решений", если b=0 выдать сообщение "решений нет")
Ответ
Автор - porludom
program pr;
var
a,b:integer;
begin
readln(a,b);
if (a=0) and (b=0) then writeln('множество решений')