Дано число N.Найти количество чисел в интервале от 1 до N , делящихся на сумму своих чисел . Язык Паскаль .
Ответы на вопрос
Ответил lingvini2013
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.
Ответил lingvini2013
0
Да чё ты сбилось-то, а
Ответил lingvini2013
0
Вроде ж всё нормально было
Ответил lingvini2013
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.
Ответил lingvini2013
0
Во так нормально...
Ответил Garmor
0
Спасибо
Новые вопросы
Английский язык,
2 года назад
Математика,
2 года назад
Химия,
8 лет назад
Математика,
9 лет назад
Алгебра,
9 лет назад