Дано число N.Найти количество чисел в интервале от 1 до N , делящихся на сумму своих чисел . Язык Паскаль .
Ответы
Ответ дал:
0
program for_znaniya;var n, i, c, t, sum: integer; begin readln(n); c := 0; for i:= 1 to n do begin sum := 0; t := i; repeat sum := sum + t mod 10; t := t div 10; until t = 0; if (i mod sum) = 0 then inc(c) end; writeln(c) end.
Ответ дал:
0
Да чё ты сбилось-то, а
Ответ дал:
0
Вроде ж всё нормально было
Ответ дал:
0
program for_znaniya;
var n, i, c, t, sum: integer;
begin
readln(n);
c := 0;
for i:= 1 to n do
begin
sum := 0;
t := i;
repeat
sum := sum + t mod 10;
t := t div 10;
until t = 0;
if (i mod sum) = 0 then inc(c)
end;
WriteLn(c)
end.
var n, i, c, t, sum: integer;
begin
readln(n);
c := 0;
for i:= 1 to n do
begin
sum := 0;
t := i;
repeat
sum := sum + t mod 10;
t := t div 10;
until t = 0;
if (i mod sum) = 0 then inc(c)
end;
WriteLn(c)
end.
Ответ дал:
0
Во так нормально...
Ответ дал:
0
Спасибо
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад