Var i,k:integer;
begin
k:=0;
for i:= 100 to 1000 do if (i mod 5=0) and (i mod 21=0) then k:=k+1;
write(k)
<span>end.</span>
ні........
тому що вони майже однакові, хоча це залежить від формата
Компьютеh - это компьютер. Наверно кто-то быстро писал и ошибся нечаянно.
15(символов)*8бит(1 символ)=120 бит (1 пароль).
120 бит * 30 (паролей) = 3600 бит( все записи).
3600бит = 450 байт.
(сумма любых двух цифр числа всегда ≤ 18)
1414 - суммы цифр могут быть только 14 и 14
148 - только 14 и 8
145 - только 14 и 5
214 не может быть такого результата, так как суммы цифр могут быть только 2 и 14, но записаны они в порядке возрастания.
515 - 5 и 15 - записаны в порядке возрастания, не соответ. условию.
814 - 8 и 14 - не соотв. условию
114 - 11 и 4 (но может быть и 1 и 14) , в принципе - такой результат возможен
ответ 5