Вопрос по информатике:
Легкая задачка на циклы.
ОБЯЗАТЕЛЬНО с циклами.
Pascal. for…do, while…do и repeat…until любой
- 26.03.2018 23:40
- Информатика
- remove_red_eye 9425
- thumb_up 13
Ответы и объяснения 2
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.
- 27.03.2018 04:04
- thumb_up 6
VAR
ans: Real;
n, i: Integer;
BEGIN
Read(n);
For i := 1 to n do
ans := ans + (1 / Sqr(i));
Write(ans);
END.
- 28.03.2018 01:39
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.