Регистрация
гол38
20.06.2022 02:12
Информатика
Есть ответ 👍

дано n натуральное. найти и вывести все числа в интервале от 10 до n-1, у которых произведение всех цифр совпадает с суммой цифр данного числа. если таких чисел нет вывести "нет". паскаль

165
230
Посмотреть ответы 2

Ответы на вопрос:

Demiali41
Demiali41
4,5(81 оценок)
Var   i, n, j, p, s: longint;   st: string;   b: boolean;   begin   s : = 0;   b : = false;   readln(n);   for i : = 1 to n.tostring.length do   s : = s + strtoint(n.tostring[i]); for i : = 10 to n - 1 do   begin     st : = i.tostring;     p : = 1;     for j : = 1 to st.length do       p : = p * strtoint(st[j]);     if(p = s) then begin b : = true; writeln(i); end;     end;   if(b = false) then write('нет'); end.
zeynab97
zeynab97
4,8(9 оценок)
1)  7.4 , 0.9 , 3.2 , 12.0 , 9.6                                                                                  2) 0.675 , 4.233 , 29.481

Популярно: Информатика