Вводится последовательность целых чисел (2 или больше числа), меньших 1000 по модулю, 1001 конец последовательности. Определить максимальную сумму коэффициентов уравнения x² + bx + c = 0 корнями, которого являются 2 числа из последовательности. (С учётом кратности, т. е. если число в последовательность входит один раз, то кратность корня один).
126
353
Ответы на вопрос:
Var a,b,c,d : integer; begin for a: =1 to 4 do for b: =a+1 to 4 do for c: =b+1 to 4 do for d: =c+1 to 4 do writeln(a: 3,b: 3,c: 3,d: 3); for a: =1 to 4 do for b: =a+1 to 4 do for c: =b+1 to 4 do writeln(a: 3,b: 3,c: 3); for a: =1 to 4 do for b: =a+1 to 4 do writeln(a: 3,b: 3); for a: =1 to 4 do writeln(a: 3); readln; end.
Популярно: Информатика
-
Sasha80862104.02.2022 17:02
-
magamedaliev15029.10.2021 16:18
-
Arina575114.03.2022 02:30
-
75576609.08.2020 00:44
-
natashashvachka09.04.2022 13:57
-
Sayat200729.05.2020 09:17
-
Maksat323212319.12.2020 16:50
-
dimaarmytrac9516.04.2022 21:55
-
uradovskiy201507.12.2020 23:28
-
Юля707131.05.2022 17:31