Найти числа заданного отрезка, суммы цифр которых делятся на 5

@Frayzchek · Регистрация: 02.10.2021

Author24 — интернет-сервис помощи студентам

Дан натуральный отрезок чисел [A,B]. Найдите те числа этого отрезка, суммы цифр которых делятся на 5

@Alvico · 02.10.2021, 20:14

Delphi

begin
  var (a, b) := ReadInteger2;
  for var i := a to b do
  begin
    var (s, n) := (0, i);
    while n > 0 do
    begin
      s += n mod 10;
      n := n div 10
    end;
    if s mod 5 = 0 then
      Print(i)
  end;
end.

@Sun Serega · 02.10.2021, 20:18

Pascal

## uses School;
(ReadInteger..ReadInteger)
.Where(x->x.Digits.Sum.Divs(5))
.PrintLines;

@Frayzchek · 11.10.2021, 16:08 **[ТС]**

program 1;
var a,b,i,j,s:integer;
begin
readln(a,b);
for i:=a to b do
begin
j:=i;
s:=0;
while j <> 0 do
begin
s:=s+(j mod 10);
j:=j div 10;
end;
if (s mod 5=0) then
write(i,' ');
end;
end.

@Frayzchek 0 / 0 / 0 Регистрация: 02.10.2021 Сообщений: 3
		1
	Найти числа заданного отрезка, суммы цифр которых делятся на 5 02.10.2021, 12:34. Показов 888. Ответов 3 Метки нет (Все метки) Дан натуральный отрезок чисел [A,B]. Найдите те числа этого отрезка, суммы цифр которых делятся на 5 0

@Frayzchek 0 / 0 / 0 Регистрация: 02.10.2021 Сообщений: 3
	11.10.2021, 16:08 [ТС]	4
	program 1; var a,b,i,j,s:integer; begin readln(a,b); for i:=a to b do begin j:=i; s:=0; while j <> 0 do begin s:=s+(j mod 10); j:=j div 10; end; if (s mod 5=0) then write(i,' '); end; end. 0

Опции темы

Найти числа заданного отрезка, суммы цифр которых делятся на 5

Решение