Необходимо перевести Робота из начального положения (◊) в точку A, закрашивая при этом указанные клетки поля. Размеры стен и расстояние между ними могут быть произвольны нц-пока-кц
199
483
Ответы на вопрос:
Program ryad; var a,i: integer; b: real; begin writeln('vvelbnt "n"'); readln(a); if (a mod 2) = 0 then writeln('chislo "n" dollno nut chetnuym') else begin b: =0; i: =3; repeat b: =b+(1/i); i: =i+2; until i=a; writeln('s=',b); end; readln; end.
Популярно: Информатика
-
konfetkaa200422.06.2021 15:00
-
НаташаБатракова31.05.2023 14:13
-
помогите117813.08.2020 09:46
-
grxrtxdfdr13.07.2022 17:49
-
3мрдудец11.02.2021 14:01
-
МасенькаЗайка16.11.2022 03:16
-
YourKarma39621.02.2023 23:17
-
mcpoh28821.06.2021 07:13
-
Son090517.07.2020 07:09
-
софилка19.07.2020 01:18