Program ff;
var
summ, count_terms:integer;
begin
summ:=0;
count_terms:=0;
while summ<>324 do
begin
summ:=summ+4;
count_terms:=count_terms+1;
end;
Writeln('Кол-во слагаемых: ',count_terms);
readln();
end.
Пример реализации в VBA Excel.
Код программы можно увидеть, нажав Alt+F11
Возможные 2 варианта:
1) Сумма первой и второй цифры - 1; сумма третьей и четвертой - 44; но он сразу отсекается, т.к. сумма любых двух цифр меньше 19
2) Сумма первой и второй цифры - 14; сумма третьей и четвертой - 4, все цифры - нечётные. Тогда:
14 = 7 + 7; 14 = 5 + 9; 14 = 9 + 5
4 = 3 + 1; 4 = 1 + 3
Все возможные числа:
7731; 7713; 5931; 5913; 9531; 9513
Ответ: 6
Первый блок- ввод, в него вводятся значения a, b, c из уравнения 
. Второй блок- поиск дискриминанта. Третий блок- проверка дискриминанта на то, Меньше ли он нуля. Если менше, то работа завершается, а если нет, то ведет подсчет корней и выводит их.
