makeu M makeu Регистрация 21 Июл 2013 Сообщения 75 Репутация 0 Спасибо 0 Монет 0 16 Сен 2022 #1 У меня есть решение, но я вообще не понимаю как это делать, а мне щас нужно это писать Если можете, то объясните пожалуйста
У меня есть решение, но я вообще не понимаю как это делать, а мне щас нужно это писать Если можете, то объясните пожалуйста
NesquiK*!* N NesquiK*!* Регистрация 13 Дек 2012 Сообщения 83 Репутация 0 Спасибо 0 Монет 0 16 Сен 2022 #2 напиши русским языком, потом переведи на паскаль Позитивный голос 0
9741634 9 9741634 Регистрация 6 Июн 2013 Сообщения 86 Репутация 0 Спасибо 0 Монет 0 16 Сен 2022 #3 program laba1; var res:real; x, i:integer; begin x:=1; res:=0; for i:=0 to 5 do res:= res + ( 1 / (x + i) ); write(' x = ', res); end. Позитивный голос 0
program laba1; var res:real; x, i:integer; begin x:=1; res:=0; for i:=0 to 5 do res:= res + ( 1 / (x + i) ); write(' x = ', res); end.
menn73 M menn73 Регистрация 9 Сен 2013 Сообщения 99 Репутация 0 Спасибо 0 Монет 0 16 Сен 2022 #4 Ты не в состоянии вычислить 1/1 + 1/2 + 1/3 + 1/4 + 1/5 + 1/6 и вывести результат на экран? Чем же ты все эти годы в школе занимался? Позитивный голос 0
Ты не в состоянии вычислить 1/1 + 1/2 + 1/3 + 1/4 + 1/5 + 1/6 и вывести результат на экран? Чем же ты все эти годы в школе занимался?
3e2w1q 3 3e2w1q Регистрация 19 Дек 2013 Сообщения 100 Репутация 0 Спасибо 0 Монет 0 16 Сен 2022 #5 не совсем понял что надо. может вот это помогет? Program Calulate(output); var val: real; i: integer; x: integer; begin x:=1; val:=0; for i:=0 to 5 do val:=val+(1/(x+i)); writeln('Result: ', val); end. Позитивный голос 0
не совсем понял что надо. может вот это помогет? Program Calulate(output); var val: real; i: integer; x: integer; begin x:=1; val:=0; for i:=0 to 5 do val:=val+(1/(x+i)); writeln('Result: ', val); end.