<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
</span>
begin
var (a,b):=ReadInteger2('Введите a,b,c,d->');
var (c,d):=ReadInteger2;
Write('Корни: ');
for var x:=0 to 1000 do
if a*x**3+b*x**2+c*x+d=0 then Write(x,' ');
end.
Пример:
Введите a,b,c,d-> 1 -3 -13 15
Корни: 1 5
a = float(input('a = '))
c = input()
b = float(input('b = '))
if c == "-" :
////print (a-b)
elif c == "/" :
////if c != "0" :
////////print (a/b)
////else :
////////print("Деление на ноль!")
elif c == "*":
////print(a*b)
elif c == "mod":
////print (a % b)
elif c == "pow":
////print(a ** b)
elif c == "div":
////print(a // b)
elif c == "+":
////print(a+b)
все '/' ето 1 пробел
Нет две! Разделенные знаком собаки. Это имя пользователя и домен на котором расположен почтовый сервер. Домен может быть из нескольких слов, разделенных точками.
Pascal:
var b:longint;
a:real;
begin
read (a,b);
write (a:b);
end.
В онлайне сделать попробуй