Ответы на вопрос:
1. program chislo; var s,i: integer; begin for i: =3 to 100 do s: =s div 6; if s mod 6=0 then begin readln(s) writeln('ваш результат: ', s); end; end. 2. program chetno; var s,i: integer; begin for i: =-20 to 1200 do s: =s div 2; if s mod 2 = 0 then begin readln(s); writeln('ваш результат: ', s); end; end третью не помню : (
Популярно: Информатика
-
Jlu4shiyFisik03.06.2021 16:53
-
liyaleonteva147котик23.03.2022 19:32
-
Elementrix53414.06.2021 09:00
-
typoiya14.09.2021 14:43
-
Yulia19097807.06.2020 17:38
-
wertyfaq30.08.2022 07:37
-
123296425.05.2022 13:50
-
AlimVolk27.01.2020 12:03
-
igrotron12.08.2022 10:16
-
dvs250411.02.2022 13:38