Составить программку в PascalABC с применением цикла 50 БАЛЛОВ !!!!

Составить программку в PascalABC с применением цикла 50 БАЛЛОВ !!!!

Задать свой вопрос
1 ответ

program abc;

var n,x: integer;

s: real;

begin

s:=0;

x:=1;

readln(n);

while xlt;=n do

begin

s:=S+(exp(2*ln(sin(x)))+cos(sqrt(x)));

x:=x+1;

end;

writeln(s);

end.

Елизавета Рассказова-Галяткина
и где 50 баллов?
Валерия Асматулина
разве не пришли ?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт