Вопрос по информатике:
Программисты, помогите пожалуйста, очень выручите. Нужен 8 вариант.
P.s PascalAbc
- 06.08.2018 21:00
- Информатика
- remove_red_eye 19402
- thumb_up 14
Ответы и объяснения 1
Const
ax:array[1..3] of real=(4.3,5,10);
var
i,j,k:integer;
x,y,s:real;
begin
for k:=1 to 3 do begin
x:=ax[k];
y:=0;
for i:=1 to 5 do begin
s:=0;
for j:=1 to 4 do s:=s+sin(j*x)+i;
y:=y+s
end;
Writeln('x=',x:4:1,', y=',y)
end
end.
Результат
x= 4.3, y=55.7440276711038
x= 5.0, y=60.3014385266612
x=10.0, y=60.6300283811237
- 07.08.2018 18:53
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.