Предмет: Информатика,
автор: Garmor
Дано число N.Найти количество чисел в интервале от 1 до N , делящихся на сумму своих чисел . Язык Паскаль .
lingvini2013:
Своих чисел?
Это как?
Ответы
Автор ответа:
2
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.
Да чё ты сбилось-то, а
Вроде ж всё нормально было
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.
Во так нормально...
Спасибо
Автор ответа:
1
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var p:=0;
for var i:=1 to n do begin
var (k,s):=(i,0);
while k>0 do begin
s+=k mod 10;
k:=k div 10
end;
if i mod s=0 then p+=1
end;
Writeln(p)
end.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var p:=0;
for var i:=1 to n do begin
var (k,s):=(i,0);
while k>0 do begin
s+=k mod 10;
k:=k div 10
end;
if i mod s=0 then p+=1
end;
Writeln(p)
end.
Спасибо .
Интересные вопросы
Предмет: Русский язык,
автор: fazigadjieva1626
Предмет: Русский язык,
автор: igroman158
Предмет: Информатика,
автор: bardindima72
Предмет: Алгебра,
автор: катя2514
Предмет: География,
автор: незнайка437645839