Даны числа от 1 до N.Найти Р: 1/11/2…*1/N

Знания

Информатика

2 ответа:

Екатерина Дружевская4 года назад

0 0

uses Crt;
var i,n :integer; p:real;
begin
p:=1;
readln(n);
for i:=1 to n do
p:=p*(1/i);
writeln(p);
readln
end.

viktor201803 [7]4 года назад

0 0

Program abc;

var P:real; N,x:integer;

begin

Readln(N);

P:=1;

For x:=1 to N do

P:=P* 1/x;

writeln(P);

end.

Читайте также

Здравствуйте.Программа на си. #include "stdio.h" int main(void) { float a,b; char s; printf ("Vvedite chicla\n"); scanf("%f %f %

valuiki

<span>scanf("%f %f %c",&a,&b,&s); - считывает 2 числа, s - твоя операция
case - варианты, что сделать с числами
printf выводит результат операции</span>

0 0

1 год назад

Для какого из указанных значений числа X истинно выражение (( X– 3 > 6) ∨¬ ( X– 5 > 8 )) ∧ ( X*4 > 25 ) ? 1) 3 2) 9 3

Monah16 [6]

При х=3 ((0>6)+-(-2>8))*(12>25)=(0+1)*0=0 ложь
при х=9 ((6>6)+-(1>8))*(36>25)=(0+1)*1=1 истина
при х=7 и х=2 вторая скобка дает 7*4>25 и 2*4>25 ложь, т.е. 0, при умножении дает тож 0,
ОТВЕТ: №2, при х=9

0 0

4 года назад

Дан массив A(4). Найти максимальный элемент массива и его порядковый номер.На паскале.

ксения181818

Const n=4;
var A:array [1..n] of real;
i,max,j:integer;
maxs:real;
begin
for i:= 1 to n do
readln(A[i]);
for i:= 1 to n do
for j:= 1 to n do
if A[i]>A[j] then
begin
maxs:=A[i];
max:=i;
end;
writeln(maxs,' ',max)
<span>end.</span>

0 0

4 года назад

Помогите пожалуйста задачу решить ввод:а и б ,вывести результаты сравнения

Антон212133 [342]

Var
a,b:integer;
begin
Write('вводите a,b: ');
Read(a,b);
if a>b then Writeln('Первое число больше')
else
if a<b then Writeln('Второе число больше')
else Writeln('Числа равны')
end.

0 0

4 года назад

Какие устройства применяются для представления информации? относятся ли к ним принтер сканер и звуковая плата?

ВИТАЛЯяяяяяяя [16]

Ответ:

Телефон, компьютер. сканер относится

0 0

4 года назад

Даны числа от 1 до N.Найти Р: 1/1*1/2*…*1/N

Даны числа от 1 до N.Найти Р: 1/11/2…*1/N