В borland pascal типа данных, который может вместить такое число, нету. может создать массив, хранить в нем разряды числа, а при выводе соединять в одно число.
либо перейди на free pascal. там int64 тебе идеально подойдет.
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.
var
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
<span>end.</span>
2.4 Ответ 4
Так как Х больше двух и не равен 3. Остаётся только 4.
В 2.5 я вопроса не понимаю
IF A > В THEN N = В
IF A < C THEN N = C
N=A+B+C-A
Если я правильно понял, то вот ответ:
A < B и A > C, т.е. ответ б).