Var M, N, sumN: integer;
begin
readln(N);
M := N;
sumN := 0;
while (M > 0) do
begin
inc(sumN, M mod 10);
M := M div 10;
end;
M := (N div sumN + 1) * sumN;
if (M < 2*N) then
writeln(M)
else
writeln('нет')
end.
Готовка еды, уборка квартиры, поход в магазин.
l=q*t
q=l:t
q=6*256:3 = 512 байт/с или же 4 096 бит/с
3) Из пункта А в З :
АГЗ,АГВЖЗ,АВЖЗ
Ответ:3
Сорян, 4 задание не видно((Можешь в лс кинуть,я решу)
1 МБ = 1024 КБ
Поэтому 4^2-x = 16 * 1024
4^2-x = 16384
16 - x = 16384
-x = 16384 + 16
-x = 16400
x = -16400