Var a,i,b:integer;
begin
writeln('Введи число');
readln(a);
writeln('Уадай');
while a<>b do
begin
readln(b);
if a<b then
begin writeln('Меньше'); i:=i+1; end
else
if a>b then
begin writeln('Больше'); i:=i+1; end;
end;
writeln('Попыток было:', i)
end.
'Microsoft Qbasic
INPUT a, b
IF a = b THEN
a = 0
ELSE
a = -a: b = -b
END IF
PRINT a, b
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a,b:real;
Read(a,b);
if a=b then a:=0
else begin a:=-a; b:=-b end;
Println(a,b)
end.
Const
x0 = 1.909;
x1 = 6.23;
step = 1.005;
t=10;
var
i: real;
begin
i:=0;
while i<(x1-x0)/step do
begin
writeln('a(', x0+i, ') = ', sqrt(1+sqr(x0+i))+t);
i:=i+step;
end;
if (x0+i-step)<(x1) then writeln('a(', x1, ') = ', sqrt(1+sqr(x1))+t)
end.
Prt Sc клавиша.
Потом просто вставляешь картинку