1. Информатика
  2. 1.найти двухзначные числа, которые

1.найти двухзначные числа, которые делятся на сумму своих цифр 2.составьте программу вывода количества трёхзначных чисел, у которых цифры строго по убыванию.

Xessiafel Xessiafel    2   16.06.2019 01:20    0

Ответы
odminsovet odminsovet  12.07.2020 22:56
Var
i,m,sum:Integer;
Begin
 for i:=10 to 99 do
  begin
   m:=i mod 10;
   n:=i div 10;
   sum:=m+n;
   if (i mod sum = 0) then Writeln(i);
  end;
 end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
марина7811 марина7811  06.03.2020 22:09
Сочинение робототехника и техническое творчество в образовательном дошкольной организации...
20112005505438 20112005505438  06.03.2020 22:15
Чему равно выражения (15 div 7) mod 2​...
алексей041 алексей041  06.03.2020 22:15
Напиши программу Угадай число с использованием только конструкции if-else​...
Yuki16 Yuki16  06.03.2020 22:15
Для следующих значений исходных данных x=1 a=1,12 w=29. Составить программу, которая вычисляетy = 4а^2 + [b^3 + x(a^4 +x)] и c=2(a+x+3/2b)-sin x^4+2x^2​...
KamilyaG KamilyaG  06.03.2020 22:18
Ниже приведена программа на языке Python: x = int(input()) a= x//10//10 %10 b=x//10%10 c=x%10 print(с, a, b) В качестве исходных данных вводится трёхзначное число. Переменной...
Diana2004250 Diana2004250  06.03.2020 22:18
548 и 2а 16 результат запишите в двоичной системе счисления...
liza1460 liza1460  06.03.2020 22:18
Вычислить значения выражений: 1) 125//10%10 2) 4**2+pow(16, 0.5) 3) abs (2**2 - 34//5)...
McMamon McMamon  06.03.2020 22:19
Дан целочисленный массив размера n найти минимальное количество его одинаковых элементов​...
Kylp Kylp  06.03.2020 22:28
Найдите частное чисел a и с, если а не отрицательное, и с кратно числу к, иначе найти квадрат разности этих чисел ​...
68Diman 68Diman  06.03.2020 22:28
152) Исполнитель Редактор получает на вход строку цифр и преобразовывает её. Редактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр.заменить (v,...

Популярные вопросы