Информатика, опубликовано 2018-08-22 19:27:42 by Гость
Составить программу в паскале с использованием циклических операторов: Среди всех чисел,меньших к ( к
Ответ оставил Гость
function sum(i, n: integer): boolean;
var
a, b: integer;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: integer;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на