Вокруг медведя бушуют 8 .чтобы потушить их,на каждый надо вылить 200 литров воды.составь для алгоритм. цель: потушить все .
116
142
Ответы на вопрос:
Var x,i,f: integer; begin f: =1; //признак, определяющий простоту числа write('введите число: '); readln(x); for i: =2 to x-1 do //перебираем числа if x mod i=0 then f: =0; //если число делится без остатки, значит оно непростое if f=1 then writeln('это простое число') else writeln('это непростое число') end.
Популярно: Информатика
-
zska2502.10.2022 12:38
-
Машуничка1228.03.2020 09:51
-
taylakova09082030.09.2021 23:57
-
Silvertrue13.01.2023 05:44
-
timekid04.12.2021 02:03
-
animator35106.04.2021 13:49
-
гретхен111.02.2020 14:44
-
koshkanet6923.08.2022 12:52
-
valeriia813.01.2021 17:25
-
TimuR211213.09.2020 05:29