Предмет: Информатика,
автор: sunday7440410
Легкая задачка на циклы.
ОБЯЗАТЕЛЬНО с циклами.
Pascal. for…do, while…do и repeat…until любой
Приложения:

Ответы
Автор ответа:
0
program one;
var izn,sum,i:real;
begin
read(n);
izn := 1 + (1sqr(2);
sum := izn;
i := 3;
repeat
sum := izn + (1sqr(i);
i := i+1;
until i = n;
writeln(sum);
end.
Автор ответа:
0
VAR
ans: Real;
n, i: Integer;
BEGIN
Read(n);
For i := 1 to n do
ans := ans + (1 / Sqr(i));
Write(ans);
END.
ans: Real;
n, i: Integer;
BEGIN
Read(n);
For i := 1 to n do
ans := ans + (1 / Sqr(i));
Write(ans);
END.
Похожие вопросы
Предмет: Математика,
автор: tomirisr8
Предмет: Математика,
автор: Аноним
Предмет: Литература,
автор: Аноним
Предмет: Геометрия,
автор: Ася0709