=498 вроде бы я не очень понимаю
Var a, b, x : real;
Begin
Write('Введите а: ');
Readln(a);
Write('Введите b: ');
Readln(b);
X := -b + b * b - 4 * a * b / 2 * a;
Write('x = ', x : 0 : 2);
Readln;
End.
В ряду лишнее число,найди его и поясни почему: 1,2,3,5,6,7. 3,5,6,7,11.
malinka 1106 [1]
Везде ответ 6
В первом составное
А во втором-чётное