Home
О нас
Products
Services
Регистрация
Войти
Поиск
mixa55555
@mixa55555
December 2021
0
4
Report
Исправте ошибку program qwer;
var a,b,c,d:integer;
begin
readln;
d:=b*b-4*a*c;
if (d>0) then
writeln ('2 корня')
else
if (d=0) then
writeln('1 корень')
else
writeln('нет корней')
end.
Пишет всегда 1 корень
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
×
Report "Исправте ошибку program qwer; var a,b,c,d:integer; begin readln; d:=b*b-4*a*c;..."
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 © 2024 SCHOLAR.TIPS - All rights reserved.