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

  1. не могу понять как описать в паскале делятся без остатка на 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.


textual

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

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.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.900 из 5



Похожие ответы
  1. При вводе вектора выдаёт exitcode 201. Задание было такое: В задаваемом вещественном векторе A размерности n>5. Найти значение и индекс последнего минимального элемента

  1. Как проверять и выкидывать элементы из массивов? Дана последовательность P[i] i=1,2...n (n<=30). Получить новую последовательность X[i], выбросив из исходной все числа, большие заданного числа R. ( Не использую функции и процедуры)

  1. Задается значение х. Выдать, все четные числа от 0 до 10000 если х = 0 иначе выдать x^5. Как это представить в виде кода, вообще понять не могу)

  1. Дана квадратная матрица порядка n(n=5). Получить элементы вектора x, равные сумме чётных элементов каждой строки, если среди элементов матрицы нет отрицательных элементов, иначе каждый элемент вектора x равен произведению элементов столбца. С комментариями, пожалуйста.

  1. на заданном отрезке найти все корни уравнения f(x)=0 с точностью e

  1. Пожалуйста, помогите переделать эту программу так, что бы она определяла 2 элемента с наименьшими значениями и присваивала значения максимального элемента, расположенным между ними найденными значениями Спасибо огромное заранее:3

  1. При компиляции выдаёт ошибку "Syntax error "Begin" expected but ";" found" в блоке