Категория
Информатика, опубликовано 06.06.2020 23:14

Написать программы к следующим задачам, пользуясь примерами ниже.
1. Дано натуральное число n. Вычислить 1*2*3*…*n.
2. Вычислить: sin x+sin 2x+sin 3x +….(n слагаемых).

Ответы

Ответ
Ответ оставил: Гость

Дано натуральное число n. Вычислить 1*2*3*…*n.

var n,i,p: integer;

begin

p:=1;

writeln ('Введите число');

readln n;

for i:=1 to n do

p:=p*i;

writeln('p=',p);

end.

Вычислить: sin x+sin 2x+sin 3x +….(n слагаемых)

Var

  n,i:integer;

  S:real;

Begin

Write('n = ');

ReadLn(n);

S:=0;

For i:= 1 to n do

   S:=S+Sin(i);

WriteLn('S = ',S)

End.

Объяснение:

паскаль

Ответ
Ответ оставил: Гость
Где план??????????????
Ответ
Ответ оставил: Гость
Const m=500000; p1=25000; p2=16000; p3=2000; n=100;
var k1,k2,k3:integer;
begin
 for k1:=0 to m div p1 do
  for k2:=0 to (m-k1*p1) div p2 do
    begin
    k3:=n-k1-k2;
    if k1*p1+k2*p2+k3*p3=m then writeln(k1,,k2,,k3);
    end;
end.

Результат:
10 5 85
Ответ
Ответ оставил: Гость
А) телефонные номера
б) - ?
в) исторические события


Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 1 на вопрос по информатике: Написать программы к следующим задачам, пользуясь примерами ниже. 1. Дано натуральное число n. Вычислить 1*2*3*…*n. 2. Вычислить: sin x+sin 2x+sin 3x +….(n слагаемых).... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube