Var n,k,b : real;beginread (n);k:=0;b:=0;while n>0 do beginb:=(b+1)*(b+1);k:=k+b;n:=n-1;b:=sqrt(b);end;write (k);end.
Если на сайт, просто скопируй в паскаль
Ответ:
110101
Объяснение:
53=110101
Отметьте мой ответ как "лучший" пожалуйста!
Ответ=9;
2907+193=3100
<span>7 меняем на 8, 8 на 9, 9 на 0, передвигаем, еще раз передвигаем, 9 меняем на 0, 0 на 1, передвигаем и меняем 2 на 3</span>
Var
a, b, d, s, alpha: real;
begin
Write('Введите длину диагонали прямоугольника: ');
Readln(d);
Write('Введите величину угла между большей стороной и диагональю :');
Readln(alpha);
alpha := Pi * alpha / 180;
a := d * cos(alpha);
b := d * sin(alpha);
s := a * b;
Writeln('Площадь прямоугольника равна ', s:0:3)
end.
Тестовое решение:
Введите длину диагонали прямоугольника: 35
Введите величину угла между большей стороной и диагональю :29
Площадь прямоугольника равна 519.429