CLS
DIM a(20)
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 10000 THEN GOTO b
IF INT((a(n)) / 10) = (a(n)) / 10 AND a(n) < 1000 AND a(n) > 99 AND a(n) > h THEN h = a(n)
NEXT i
PRINT h
END
program qq;
uses crt;
var a,x,b:real;
begin
crlscr;
writeln('введите а и b ');
readn(a,b);
if a=0 then
if b=0 then writeln('x любое число')
else writeln('решений нет ')
else begin
x:=(-b/a);
writeln (x);
end;
readln
end.
сорри за то что все в куче
............................................
Система вещественных чисел в математических вычислениях предполагается непрерывной и бесконечной,<span> т.е. не имеющей ограничений на диапазон и точность представления чисел. Однако в компьютерах числа хранятся в регистрах и ячейках памяти с ограниченным количеством разрядов.</span>