Program n1;
const n=20;
var a: array [1..n] of integer;
i,k: integer;
begin
k:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a[i]);
if (a[i]=0) or (a[i]<=-30) or (a[i]>=30) then break;
if (a[i] mod 2=0) and (a[i] mod 3=0) then k:=k+1;
end;
writeln('количество: ',k);
end.
Var i,count:integer; begin i:=3; //количество часов count:=1; //количество амеб while i < = 24 do begin count:=count*2; //каждые 3 часа количество амеб удваивается writeln(i,' hours: ',count); //выводим кол-во часов и амеб i:=i+3; end; readln; <span>end.</span>
Если число в 8-ричной системе оканчивается на 0, значит в нем целое число восьмерок, то есть оно делится на 8.
Также оно делится и на 6 (поэтому же). Это число 24.
1) 1
2) 0
3) 1
4)1
5)0
6)0
7)0
8)0
9)0
10)0
<span>свехру в программе есть книпка с изображением бинокля. Если ее нажать то, на экране откроется окно, в этом окне от вас требуется ввести слово которое вы хотите найти в документе и нажать "поиск". Когда программа найдет слово в документе, она выделит его цветом.</span>