Вопрос по информатике:
1)Найдите сумму S=0.3+0.6+0.9+...+3
2) найдите произведение Р=1/20*1/18*1/16*...*1/2
На языке Паскаль с помощью команд REPEAT и WHILE. Помогите пожалуйста!
- 17.06.2018 20:27
- Информатика
- remove_red_eye 12963
- thumb_up 30
Ответы и объяснения 1
//Задание №1
//цикл repeat
var i,s:real;
begin
s:=0;
i:=0.3;
repeat
s:=s+i;
i:=i+0.3;
until i >= 3;
writeln('Сумма ',s);
end.
//Задание №2
//цикл while
var p:real;
i:integer;
begin
p:=1;
i:=20;
while i>2 do begin
p:=p*(1/i);
i:=i-1;
end;
writeln('Произведение членов ряда ',p);
end.
- 18.06.2018 00:42
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.