Я давал ответ на прошлый вопрос начало тоже начну с вода формуллы
<span>b=(fabs(x)-</span>fabs(y))/(1+fabs(x*y));
fabs(x)-модуль числа x
Var i:integer;
begin
for i:=1000 to 9999 do
if i mod 134 = 11 then writeln(i);
end.
Результат (только начало и конец, т.к. чисел много):
<span>1083
1217
1351
...
</span><span>9659
9793
9927</span>
Var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
<span>writeln('План можно выдерживать', i, ' лет' )</span>;
end.
int a; // Определение переменной a целочисленного типа со значением, зависящим от местонахождения в памяти(мусор)
float b; // Определение переменной b вещественного типа со значением, зависящим от местонахождения в памяти(мусор)
double c = 14.2; // Определение переменной c вещественного типа со значением 14.2(вещественный тип)
char d = 's';// Определение переменной d символьного типа со значением символьного типа
bool k = true; Определение логической переменной k(булева типа/логического типа/etc.) со значением логическим.
Данная информация справедлива для C/C++.
INPUT "a=", a
INPUT "b=", b
PRINT "s="; a ^ 2 - b ^ 2
END
<em><u>Тестовое решение:</u></em>
Y:\qbasic>QBASIC.EXE
a=10
b=8.5
s= 27.75
Чтобы продолжить, нажмите любую клавишу