составьте, пожалуйста, программу в pascal

Составьте, пожалуйста, программку в pascal

Задать свой вопрос
Арисмова Арина
Срочнооо
1 ответ
Program z1;
var a,b,x:integer;
begin
readln(a,b);
x:=(-b)/a;
writeln('x=',x);
end.
Владислав Слобин
А здесь необходимо условие либо нет?
Юра Могорас
можно добавить
Igorek Cemak
...
Юленька Шишкарева
ща
Дарья
if a<> then (все что после readln и до end) else writeln('не удовлетворяет условию'); end.
Аделя Карабанова
Спасибо огромное
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт