Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
Program Lloyd;
var
i,a:integer;
begin
a:=1;
for i:=1 to 55 do begin
if (i mod 5)=0 then
a:=a*i;
end;
writeln('Произведение =',a);
end.
Для текущего месяца (т.е. только для октября, потому что не было указано в вопросе учитываются другие месяцы или нет)
program zd;
const
b=26;
var
a,c:byte;
begin
writeln('Введите день');
readln(a);
if a<b then {проверяется условие, если введенный день меньше заданного дня, то вычислить оставшиеся дни}
c:=b-a
else {иначе вывести смс}
writeln('Данный день уже прошёл');
writeln('Осталось', с, 'дней');
end.
Вроде бы правильно) извиняюсь за исправления, просто тороплюсь
<span>Агроном-это человек который выводит новые сорта тех или иных растений.</span>
# # Код на ruby 2.2.3p173
def NtoR(n)
t = n.to_i
k = 0
while t > 0 do
k += t % 2
t = t / 2
end
if k % 2 == 0 then
return n * 2**2
else
return n * 2**2 + 1 * 2
end
end
min = 1000
for i in 1..200
r = NtoR(i)
min = r if (r > 180) and (min > r)
end
p min
Ответ 184