Var n: integer;
var heigth: real;
begin
heigth := 120;
writeln('n = ');
readln(n);
for var i := 1 to n do
heigth := heigth * 1.02;
writeln('Heigth = ',heigth);
end.
var n: integer;
var heigth: real;
begin
heigth := 120;
writeln('n = ');
readln(n);
repeat
begin
heigth := heigth * 1.02;
n := n - 1
end
until n = 0;
writeln('Heigth = ',heigth);
end.
<span><em>uses crt;</em>
<em>var a,b,c,d,x:real;
</em>
<em>begin</em>
<em>clrscr;</em>
<em> writeln('введите A,B,C');
</em>
<em> readln( a,b,c );
</em>
<em> d:=sqr(b)-4*a*c;
</em>
<em> if d<0 then </em>
<em> writeln('действительных корней нет') </em>
<em> else if d=0 then </em>
<em> begin
</em>
<em> x:=(-b)/2*a;
</em>
<em> writeln('корень уравнения: ',x);
</em>
<em> end else </em>
<em> begin
</em>
<em> x:=(-b+sqrt(d))/2*a;
</em>
<em> writeln('1-ый корень уравнения: ',x);
</em>
<em> x:=(-b-sqrt(d))/2*a;
</em>
<em> writeln('2-ой корень уравнения: ',x);
</em>
<em> end
</em>
<em>end.</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>
1* 10^4 + 2*10^3 + 7*10^2+ 5*10^1 +3*10^0
Наука+учеба=работа
Следовательно убираем не нужное. Повторяющееся.
нука+уче=рот
у встречается 2 раза. допустим это ноль.
нка+че=рот
Под эти буквы, можно поставить любые числа. Но что бы если нка это например 185, то че должно быть больше 15. Что бы Например 94. В итоге ответ 279. Цифры совпадают по буквам, нормально.