Задание по информатике

Question

Задание по информатике

Человек декоративный Мастер (2173), на голосовании 1 месяц назад

Решите задание по информатике на языке паскаль. Пожалуйста напишите не только тело, а всю программу

Answer 1

Matematika ru Мыслитель (8760) 2 месяца назад

 var I,N: integer; 
    S,X: real; 
begin 
Readln(X); 
Readln(N); 
S:=1; 
For I:=1 to N do S:=S+1/I*X; 
Writeln(S) 
end.


var I,N: integer; 
    S,X: real; 
begin 
Readln(X); 
Readln(N); 
S:=0; 
I:=1; 
while I                   S:=S+I*X 
               end; 
Writeln(S) 
end.

Matematika ruМыслитель (8760) 2 месяца назад

Добавил в ответ второе задание с оператор while

Человек декоративный Мастер (2173) Matematika ru, а какие это номера заданий?

Matematika ruМыслитель (8760) 2 месяца назад

Второе задание с циклом repeat

 var I,N: integer;  
    S,X: real;  
begin  
Readln(X);  
Readln(N);  
S:=0;  
I:=1; 
repeat I:=I+1;  
       S:=S+I*X 
until not (IWriteln(S)  
end.