В ЧЕМ ПРОБЛЕМА?МНЕ НУЖНО РЕШИТЬ ВОТ ЭТУ ЗАДАЧУ ТОЛЬКО ЦИКЛАМИ И ФУНКЦИЕЙ:
Напишите программу, которая вводит натуральное число и находит все числа на отрезке [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.
#include "iostream" //Подключаем библиотеку ввода вывода
#include "math.h" //библиотека математических функций
#include <windows.h>
using namespace std; //подключение пространства имён std - открывает
//доступ к cin и cout из библиотеки iostream
int main() //начало программы
{
SetConsoleCP(1251); //если будешь компилировать SetConsoleOutputCP(1251); //то это для подключения русского языка в консоли
float x, y, z; //объявление вещественных переменных
cout<<"Введите значение X"; //вывод строки
cin>>x; //вводим число
y=sqrt(x); //считаем y
if ((x<3) || (x>8)) //условие. если (x<3 или x>8)
z=x*y; //есил истино z=x*y
else z=x+y; //иначе z=x+y
cout<<"z= "<<z; //вывод результата
cout<<"Для завершения программы нажмите любую клавишу...";
cin.get();
cin.get();
return 0;
}