profitgroup51
?>

Вывести на экран turbo pascal для заданного натурального числа n 1)найти сумму всех делителей, кратных хотя бы одному из целых чисел c или d 2)найти среднее арифметическое всех делителей

Информатика

Ответы

almihanika435
1. for i : = 2 to n div 2 do if (n mod i = 0) and ((n mod c = 0) or (n mod d = 0)) then s : = s + i; 2.  for i : = 2 to n div 2 do if (n mod i = 0)  then begin s : = s + i; inc(c); end; writeln( 'среднее: ', s / c );
oniks-plus
// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(12,0,50); a.println;   var m: =a.average;   write('элементы, меньшие среднего значения: ');   writeln('таких элементов ',a.where(x-> x< m).println.count) end. пример 34 12 5 35 29 15 23 22 41 27 12 36 элементы, меньшие среднего значения: 12 5 15 23 22 12 таких элементов 6 begin   var a: =arrrandom(13,0,100); a.println;   write('элементы, меньшие 50: ');   writeln('таких элементов ',a.where(x-> x< 50).println.count) end. пример 25 17 68 71 27 37 83 32 63 87 29 12 34 элементы, меньшие 50: 25 17 27 37 32 29 12 34 таких элементов 8
troian07
Blu-ray disc - это формат оптического носителя, используемый для записи с повышенной плотностью хранения цифровых данных, включая видео высокой чёткости. в октябре 2000 года был представлен первый прототип нового носителя. а в январе 2006 года был представлен современный вариант на международной выставке потребительской электроники consumer electronics show (ces). весна 2006 года - коммерческий запуск формата blu-ray ("синий луч"). диск получил своё название от использования для записи и чтения коротковолнового «синего» лазера. кстати, с момента появления формата в 2006 году и до начала 2008 года у blu-ray существовал серьёзный конкурент  — альтернативный формат hd dvd. и вот несколько характеристик диска:  

год выпуска: 2006тип носителя: оптический диск.ёмкость: 25 гб (однослойный), 50 гб (двухслойный), 100/128 гб (bdxl)международный стандарт: blu-ray disc association.размер: диаметр 120 мм, толщина 1,2 мм.применение: хранение аудио, видео и данных.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вывести на экран turbo pascal для заданного натурального числа n 1)найти сумму всех делителей, кратных хотя бы одному из целых чисел c или d 2)найти среднее арифметическое всех делителей
Ваше имя (никнейм)*
Email*
Комментарий*

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

AleksandrIvanovich1273
Ter-Pogosov_Vasilevna
Burov1446
Бернард pokerman
Strelkov567
izykova22
rusmoney92
КристинаАлександр
Tanyamitia
Васильева-Александрович
Sadikova Gavrikov
vasenkova1981
zhunina71807
Григорьевич915
Спивак