Var n, i: integer;
a, y: real;
begin
readln(a, n);
for i := 0 to n do
y := y + exp(ln(a) * I);
writeln(y);
end.
<span>
Работает =)</span>
<span>Набрать кувшин 8 л. Из него отлить в кувшин 3 л. Затем вылить эти 3 л. Затем опять отлить из 8литрового в кувшин 3 л. Оставшаяся вода в 8литровом кувшине =2 л. Переливаешь в 3литровый. Потом набираешь полный 8литровый. Из него доливаешь воды в 3литровый, т.е. 1 л. Остается 7 л.</span>
Язык программирования - знаковая система, предназначенная для записи алгоритмов и компьютерных программ. Синтаксис языка программирования - правила, по которым структура программ описывается как набор символов. Попробую описать. Синтаксис языка программирования Pascal предполагает для определения остатка от деления функцию mod, причем делимое стоит прямо перед функцией, а делитель - после нее(к примеру, Y:=9mod4)
<span>0.001
</span><span>Решение должно иметь от 20 до 5000 символов</span>