Ввести x с клавиатуры и определить, сколько чисел в промежутке от 1 до 100 делятся без остатка на x, x-1 или x - Free Pascal

Узнай цену своей работы

Формулировка задачи:

не могу понять как описать в паскале делятся без остатка на x,х-1,х+1. Одновременно? В цикле от 1 до 100 if (i mod x = 0) and ((i-1) mod x = 0) and ((i+1) mod x = 0) tnen n := n + 1; задание 51. Ввести x с клавиатуры и определить, сколько чисел в промежутке от 1 до 100 делятся без остатка на x, x-1 или x+1.

Решение задачи: «Ввести x с клавиатуры и определить, сколько чисел в промежутке от 1 до 100 делятся без остатка на x, x-1 или x»

textual
Листинг программы
var
    x: LongInt;
    c, cp1, cm1, i: 0..100;
begin
    c := 0;
    cp1 := 0;
    cm1 := 0;
    Write('Введите x = '); ReadLn(x);
    for i := 1 to 100 do
    begin
        if (i mod x = 0)
        then
            Inc(c);
        if (i mod (x + 1) = 0)
        then
            Inc(cp1);
        if (i mod (x - 1) = 0)
        then
            Inc(cm1);
    end;
    WriteLn('Для x: ', c);
    WriteLn('Для x+1: ', cp1);
    WriteLn('Для x-1: ', cm1);
end.

Объяснение кода листинга программы

  1. Введен тип данных LongInt для переменной x, чтобы обеспечить достаточное количество значений для ввода с клавиатуры.
  2. Введены переменные c, cp1, cm1 и i типа 0..100, чтобы хранить количество чисел, которые делятся без остатка на x, x+1 и x-1 соответственно.
  3. Переменная c инициализирована значением 0.
  4. Переменные cp1 и cm1 инициализированы значением 0.
  5. Пользователю предлагается ввести значение x.
  6. Запускается цикл от 1 до 100.
  7. Внутри цикла проверяется, делится ли текущее значение i без остатка на x. Если да, то увеличивается значение переменной c.
  8. Проверяется, делится ли текущее значение i без остатка на x+1. Если да, то увеличивается значение переменной cp1.
  9. Проверяется, делится ли текущее значение i без остатка на x-1. Если да, то увеличивается значение переменной cm1.
  10. После завершения цикла выводится количество чисел, которые делятся без остатка на x.
  11. Выводится количество чисел, которые делятся без остатка на x+1.
  12. Выводится количество чисел, которые делятся без остатка на x-1.
  13. Код не содержит обработку ошибок или исключений.
  14. Код не содержит комментариев или пояснений.

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы