Найти все целые корни уравнения,где ax^3+bx^2+cx+d=0,где a, b, c, d заданные явной инициализацей целые числа, при чем a и d не равны 0. Целыми корнями могут быть только положительные и отрицательные делители коффициента d. Поиск делителей числа реализовать в виде функции, результат вывести файл out. txt. Среда программирования Builder C++
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
ReadlnString('->').ToWords(Arr(',','.'))
.Select(w->w.Where(c->Pos(c,'аеёиоуыэюя')>0).GroupBy(x->x)
.Select(x->(x.Key,x.Count)).Where(x->x[1]>2)).Where(x->x.Count>0)
.SelectMany(x->x).Select(x->x.Item1).Distinct.OrderBy(x->x)
.Println(',')
end.
Пример
-> дает,корова,молоко,длинношеее,животное,жираф,катамаран.
а,е,о
723-3115
Объяснение:
c = 0
for i in range (-9563, -3103):
if (i % 7 == 0) and (i % 11 != 0) and (i % 23 != 0) and (-i % 10 != 8):
c = с + 1
print(i)
print(c)
вот как это выглядит на питоне, в целом на паскале все выглядит точно также кроме %, в паскале это (mod), кроме ==, в паскале это (=), кроме !=, в паскале это (<>), ну и кроме принта
самая главная строчка тут (-i % 10 != 8) тут должно быть именно -i, так как если вы сами поэкспериментируете с числами на паскале (с положительными и отрицательными), то у вас будет выводиться совершенно другое число, поэтому когда видите отрицательный отрезок не забывайте об этом моменте, наверное я непонятно объяснил, но надеюсь вы поняли