Информатика, опубликовано 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.
Объяснение:
паскаль
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01