Home
О нас
Products
Services
Регистрация
Войти
Поиск
Русалина21
@Русалина21
August 2021
1
10
Report
составьте, пожалуйста, программу в pascal
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
Answers & Comments
444ерор444
Program z1;
var a,b,x:integer;
begin
readln(a,b);
x:=(-b)/a;
writeln('x=',x);
end.
1 votes
Thanks 2
Русалина21
А тут нужно условие или нет?
444ерор444
можно добавить
444ерор444
...
444ерор444
ща
444ерор444
if a<> then (все что после readln и до end) else writeln('не удовлетворяет условию'); end.
Русалина21
Спасибо большое
×
Report "составьте, пожалуйста, программу в pascal..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a,b,x:integer;
begin
readln(a,b);
x:=(-b)/a;
writeln('x=',x);
end.