Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 975 ответов!

Дано число S. Является ли оно совершенным?

10-11 класс

напишите пожалуйста программу для Паскаля или блок-схему, очень прошу!!

Leonid86 11 окт. 2016 г., 1:37:21 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
14633
11 окт. 2016 г., 4:34:37 (7 лет назад)

program s1;

var
  i, s, sum: word;

begin
  readln(s);
  sum := 0;
  for i := 1 to s div 2 do begin
    if s mod i = 0 then sum := sum + i
  end;
  writeln(s = sum)
end.

Ответить

Другие вопросы из категории

Выполняя домашнее задание по информатике, пятиклассница Маша нарисовала в графическом редакторе MS Paint красивую ромашку, раскрасила рисунок,

а затем сохранила его в файле с именем flower , но сделала это в пяти разных форматах. В каком порядке будут расположены имена файлов, которые сохранила Маша, если файлы в папке отсортировать по размеру (в порядке убывания)? Примечание: При выполнении рисунка Маша использовала только шесть различных цветов и оттенков.

1)

помогите решить информацику, срочно!!

одну из любых, прошуу

Pascal ABC.

Помогите.
Нужно нарисовать елку в Pascal ABC

Читайте также

Задача на программе АВС паскаль:

Дано число, определите является ли оно двухзначным и кратным 2 и 6

P.S. должно решаться через мод

Из 16-ти чисел, спросите у пользователя ,сколько нужно проанализировать чисел, а затем запросите эти числа и сделайте для каждого вывод, является ли

оно четным или отрицательным.(Паскаль)

Или так: Из 16 -ти чисел,сделайте для каждого вывод,является ли оно четным или отрицательным .(Паскаль)

Помогите пожалуйста,оченьььь срочно надо!Буду благодарна за решение ,спасибо!!!!!!!



Вы находитесь на странице вопроса "Дано число S. Является ли оно совершенным?", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.