т.е. числа из интервала (2, 5), если целые то это 3 и 4
Вот полная
uses crt;
var
i,k:integer;
begin
for i:=100 to 999 do
if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)
then begin
writeln(i);
k:=k+1;
end;
writeln('кол-во',k)
end.<span>
</span>
Язык PascalABC:begin var f: real; readln(f); if (f >= 0) then begin writeln('x := ', sqrt(f)); end else writeln('x := -3');end.
1) а) Записываем число и остаток от деления на 2 (8, 16). б) Если число больше 1, делим на 2 (8, 16) и возвращаемся к шагу а).
В двоичной системе:
24710 012355 16177 13088 01544 0772 0386 0193 196 048 024 012 06 03 11 1Записываем остатки в обратном порядке: 110000010000110 (в 2й системе)
В 8-й системе:
24710 63088 0386 248 06 6Записываем остатки в обратном порядке: 60206 (в 8й системе)
В 16-й системе:
24710 61544 896 06 6Записываем остатки в обратном порядке (заменяя остатки более 9, если такие есть: 10 на А, 11 на B, 12 на C, 13 на D, 14 на E, 15 на F): 6086
2) Числа по длине в порядке возрастания идут следующим образом: 16-е, 8е и 2е числа. Они все равны, то есть одно и то же число, просто в разных записях (системах счисления).
