Var
k, n: integer;
begin
k := 0;
n := 3;
repeat
k := k + 1;
n := n + 7;
until n > 366;
writeln(k);
end.
Ответ 52
Недостаток или малое количество памяти на системных дисках.
1. Нуль пустая клетка, 1 - закрашенная
32 - 00100000
224 - 1110000
225 - 1110001
63 - 00111111
33 - 00011111
99 - 01100011
2. Если в условии задаче примем все числа в двоичной и переведем десятичную получим: 4 братьев. Младшему 8 лет, а старшему 15 лет и он учится в 9 классе. Ответ: Может такое быть
3. Столбиком делите и будет счастье)))
//Вариант 2
//Pascal ABC.NET v3.0 сборка 1111
Var
i,max,n,a:integer;
begin
readln(n);
max:=-2147483648;
i:=1;
while i<>n+1 do
begin;
readln(a);
if (max<a) and (a mod 2=0) then max:=a;
i:=i+1;
end;
write(max);
<span>end.
</span>
Пример ввода:
4
1
2
3
4
Пример вывода:
4
