В ЧЕМ ПРОБЛЕМА?МНЕ НУЖНО РЕШИТЬ ВОТ ЭТУ ЗАДАЧУ ТОЛЬКО ЦИКЛАМИ И ФУНКЦИЕЙ: Напишите программу, которая вводит натуральное число и находит все числа на отрезке [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.

1) ТБВ, 2) ЛЕЕТРФ, 3) 240АЯ, 4) 3

Объяснение:

1) БРА (длина нечетная) → РА (меняем буквы на следующие) → СБ (длина четная) → САБ (меняем буквы на следующие) → ТБВ

2) ГРОТ (длина четная) → ГГРОТ (меняем...) → ДДСПУ (длина нечетная) → КДДСПУ (меняем...) → ЛЕЕТРФ

3) 28МАЯ (длина нечетная) → 28АЯ (меняем цифры на следующие) → 39АЯ (длина четная) → 139АЯ (меняем...) → 240АЯ

4)  По первому правилу не подходит EHA, остались HCA AEA DAH ECC EEH ADE CEA AED

По второму правилу не подходят ECC, ADE и AED; остались HCA AEA DAH EEH CEA

По третьему правилу не подходят AEA и CEA ; остались HCA DAH EEH

Задание 1

program HelloMoney;

 var

 y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла  

p, s: real; //Объявим переменные для количества процентов и величины вклада

begin

write('Какая сумма вклада? ');

readln(s); // Указываем сколько составляет вклад

write('На сколько лет вклад? ');

readln(y); // Указываем на сколько лет вклад

write('Какая процентная ставка?');

readln(p); // Указываем процентную ставку

for i:=1 to y do

s := s + s*p/100; // Прибавляем к вкладу ежегодный процент

write('Сумма денег составит: ', s);

end.

Объяснение: