В ЧЕМ ПРОБЛЕМА?МНЕ НУЖНО РЕШИТЬ ВОТ ЭТУ ЗАДАЧУ ТОЛЬКО ЦИКЛАМИ И ФУНКЦИЕЙ:
Напишите программу, которая вводит натуральное число и находит все числа на отрезке [0, N], сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8 и 9 (например, число 9). Используйте функцию для вычисления суммы цифр числа.

program q;
function dl(n:integer):integer;
var b,r:integer;
begin
b:=0;
while n<>0 do begin
b:=b + n mod 10;
n:=n div 10;
end;
dl:=b;
end;
var b,r,n,f,a,c,h,j,k,u:integer;
begin
readln(n);
for f:=0 to n do begin
c := dl(f);
for a:=2 to 9 do
if c= dl(a* f) then writeln(c);
end;
end.

Reddi900    2   05.03.2020 04:04    5