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

@Mr.Spock · Регистрация: 31.03.2010

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

Люди! Помогите! Есть такая задача:
"Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых есть число однозначное. Проверку, является ли сумма цифр числа однозначным числом, осуществить с помощью функции пользователя".
я уже не соображаю...

@Puporev · 01.04.2010, 09:11

Pascal

uses crt;
function One(n:longint):boolean;
var s:byte;
    m:longint;
begin
m:=n;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
if s<10 then One:=true else One:=false;
end;
var a,b,i:longint;
begin
clrscr;
repeat
writeln('Введите интервал натуральных чисел b>a');
readln(a,b);
until b>a;
writeln('Числа, сумма цифр которых однозначное число:');
for i:=a to b do
if One(i) then write(i,' ');
readln
end.

@Mr.Spock 1 / 1 / 0 Регистрация: 31.03.2010 Сообщений: 33
		1
	Найти те числа отрезка, суммы цифр которых есть число однозначное. 31.03.2010, 23:59. Показов 1542. Ответов 1 Метки нет (Все метки) Люди! Помогите! Есть такая задача: "Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых есть число однозначное. Проверку, является ли сумма цифр числа однозначным числом, осуществить с помощью функции пользователя". я уже не соображаю... 0

	01.04.2010, 09:11

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

Решение