Легкая задачка на циклы.
ОБЯЗАТЕЛЬНО с циклами.


Pascal. for…do, while…do и repeat…until любой

2
Какой язык? Определённый вид цикла, или можно любой?
Pascal. for…do, while…do и repeat…until любой

Ответы и объяснения

2014-01-09T23:17:38+04:00

program one;
var izn,sum,i:real;
begin
read(n);
izn := 1 + (1\sqr(2);
sum := izn;
i := 3;
repeat
sum :=  izn + (1\sqr(i);
i := i+1;
until i = n;
writeln(sum);
end.


2014-01-10T01:26:26+04:00
VAR
   ans: Real;
   n, i: Integer;
BEGIN 
   Read(n);

   For i := 1 to n do 
      ans := ans + (1 / Sqr(i));

   Write(ans);
END.