Ответы на вопрос:
// pascalabc.net 3.3 begin var a: =readinteger; writeln(range(1,a).where(x-> a mod x=0).count); end. пример: 12 6
Популярно: Информатика
-
Дан условный оператор: if x 2 then y:=x+7 else y:=x−20 Укажите...
Знайка143120.06.2020 02:49 -
с информатикой: Создать массив и вывести положительные элементы...
НастёнышЬ1429.11.2020 09:34 -
Найти наименьшее и наибольшее натуральное четырехразрядные числа...
Filindenis30.08.2020 05:20 -
На какую тему можно сделать презентацию по информатике ничего...
human230385z13.02.2023 03:27 -
Вычислить, (ответ представить в десятичной системе счисления!...
кристина005236825.12.2021 22:06 -
1. Выберите функцию, которая округляет число до целого значения:...
aaaaaaaahhh15.06.2022 21:24 -
ЯК НАМАЛЮВАТИ ГРАФІЧНІ ПРИМІТИВИ?...
DreamEvilDead06.09.2022 23:24 -
2числа а и б найти результат отношение большего из них на меньшее...
Aruzhankaaaaa114.04.2021 14:50 -
Прошу о .с прошлой мне к сожалению не ,но пробую другую. информатика(7класс)...
nastenkastetsen27.01.2020 22:37 -
Файл размером 8 кбайт передаётся через некоторое соединение...
vbvb200604.10.2020 16:18