1.<span>Клетка состоит на 60-95% из Н2О.
2.</span><span>Ухо человека воспринимает колебания 20-20 тыс. гц.
3.</span><span>Объем желудка = 3-5 л.</span>
var n,count:integer;
begin
repeat
readln(n);
if(n<>999) then inc(count);
until(n=999);
writeln(count);
readln;
end.
Var
x,i:integer;
f:boolean;
begin
f:=true;
for i:=1 to 3 do
begin
write('Введите N',i,': ');
readln(x);
if x>=5 then f:=false;
end;
if f then writeln('Все товары хорошие') else writeln('Есть плохие товары')
<span>end.</span>
Ответ:
250
Объяснение:
Это можно решать через математику, записать уравнение арифметической прогрессии и найти кол-во чисел, но тк задание в разделе информатики, то просто приведу код
kol = 0
for i in range(1, 1503):
if i % 6 == 0:
kol += 1
print(kol)