267810/3=89270 остаток 0
89270/3=29756 ост.2
29756/3=9918 ост.2
9918/3=3306 ост.0
3306/3=1102 ост.0
1102/3=367 ост.1
367/3=122 ост. 1
122/3=40 ост. 2
40/3=13 ост. 1
13/3=4 ост 1
4/3=1 ост1
<span>267810</span>₁₀=111121100220₃
Var
a, b, i, k: integer;
begin
readln(a, b);
for i := a to b do
if i mod (7 * 2) = 0 then
begin
k := k + 1;
writeln(i);
end;
writeln('K = ', k);
end.
Правильно D )) lol ())))))
Эта программа действительна при условии, что утро начинается в 6, день в 12, вечер в 18, а ночь в 24 и продолжается до 6. Написала через if, так как не знакома с case, буду рада, если кто-нибудь мне расскажет)
var a: integer;
begin
read(a);
if (a > 5) and (a <= 11) then
write('Утро ');
if (a > 11) and (a <= 17) then
write('День ');
if (a > 17) and (a <= 23) then
write('Вечер');
if (a = 24) or (a < 6) then
write('Ночь');
<span>end.</span>