Var ar: array[1..2000] of integer; n,i,count: integer; begin readln(n); for i: =1 to n do begin read(ar[i]); while ((ar[i]> 0) and ((ar[i] mod 10)< > 4)) do ar[i]: =ar[i] div 10; if ar[i] mod 10 = 4 then inc(count); end; writeln(count); end.
Спасибо
Ответ дал: Гость
program xxx;
var i, k, d, e, s : integer;
begin
k: =0;
for i: = 10 to 99 do
begin
d: = i div 10;
e: = i mod 10;
s: =d + e;
if i mod s = 0 then k: =k+1
end;
write ('кол-во чисел которые делятся на сумму своих цифр=', k);
Популярные вопросы