Var
x,s:real;
n,i:integer;
begin
write('Введите n и x: ');
readln(n,x);
for i:=1 to n do s:=s+cos(power(x,i));
writeln('y=',s)
<span>end.</span>
Itranslateтакая программка Где вы можете переводить слова
Ответ:
Их много
Объяснение:
Java, Javascript, Python, Ruby, PHP, C#, C++,php и тд
Var x,y: Integer;
begin
writeln('Введите x');
readln(x);
if x<0 then y:=x+x else
if x>=0 then y:=100*x;
writeln(y);
end.
Из правого нижнего угла влево-вправо вверх-вниз-влево вверх-вправо-влево вверх-влево вниз-вниз