Регистрация
ssnz344
13.05.2023 03:15
Информатика
Есть ответ 👍

Задание на фотографии:

209
284
Посмотреть ответы 2

Ответы на вопрос:

fariza1974
fariza1974
4,6(85 оценок)

ответ

На паскаль я так понимаю?

Если да, то:

var x, i, z:integer;

   y:real;

begin

 readln(x);

 y:=0;

 for i:=1 to 20 do

   y:= y + sqrt(i*Exp(i*(ln(x))));

 write(y);

end.

Объяснение:

Exp(...) Возводит в степень

Пограмма выведет значение y функции со значением x

natamelnichenko
natamelnichenko
4,7(68 оценок)
Var  a: array[1..18] of integer;   i, j,k: integer;   begin  for i : = 1 to 18 do begin  a[i]: =random(30);   write(a[i]: 3, ' '); end;   writeln; for i : = 1 to 18 do begin if a[i]> 15 then k: =k+1; end; write(k); readln;   end.

Популярно: Информатика