Ответы на вопрос:
Ошибка означает несоответствие begin и end. исправить можно, например, так: program i1; var a, b: integer; begin a: =10; b: =1; while a< =50 do begin if (a mod 9 = 0) or (a mod 7 = 0) then begin b: =b*a; write (b); end; a: =a+1; end; write (b); end.
Популярно: Информатика
-
dianababitskay03.11.2021 19:22
-
btsakhaev19.04.2022 11:37
-
Pwp79019.06.2022 17:27
-
robiya8605.05.2020 01:19
-
eevelinka74210.02.2023 00:44
-
Сацуки00107.09.2021 22:13
-
Touka133719.03.2023 05:12
-
nasty220409.08.2020 14:42
-
narminanarminaovsozg24.02.2021 21:20
-
leragoroshkova14.10.2021 15:41