Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
попытайся перезайти
если не то скорее всего какой-то баг, со временем должны устранить его
обратись в службу поддержки
1)tut kazhdii simvol zanimaet 1 bait(tak imeem bukvi alfavita( soobshenie s uchetom probela zanimaet 10 bait.
2)tut kazhdii simvol zanimaet 1 bait(tak ispol'zovani znaki + i - pmimo 0 i 1);
soobshenie zanimaet 11 bait.
3)analogichno 15 bait.
program xxx;
var i, k, d, e, s : integer;
begin
k: =0;
for i: = 10 to 99 do
d: = i div 10;
e: = i mod 10;
s: =d + e;
if i mod s = 0 then k: =k+1
end;
write ('кол-во чисел которые делятся на сумму своих цифр=', k);
readln
end.
Популярные вопросы