Найдите количество двузначных чисел, которые делятся на сумму своих цифр.pascal abc
159
374
Ответы на вопрос:
Чувак, я не знаю паскаля, в коде могут быть ошибки синтакисиса. по сути так: begin var count : integer; for var i : = 10 to 99 do if i mod (i mod 10 + i div 10) < 1 then count : = count + 1; end; это pascalabc.net, вроде я не ошибся.
N и P - это переменные, в которые человек вводит целое число.
Переменные a, b и c - уже известны.
Пусть N = 6, P = 10
K = 6 * 10 * (8,5 + 8, 25 + 7,25) = 1440
D = 6 * (8,5 + 8, 25 + 7,25)/3 = 48
Результат:
1440, 48
Популярно: Информатика
-
azimovaaa10.07.2022 23:31
-
GT329.12.2022 21:53
-
karahenov98Алекс11.09.2021 12:09
-
aser101q20.12.2022 15:22
-
ta2001nja07.08.2020 07:49
-
muratov2001130.01.2023 18:55
-
Ksu57623.04.2020 03:42
-
ValeriaSalvatore04.04.2021 20:36
-
диди2102.04.2022 17:46
-
простахачууусписать08.11.2022 14:58