Ввести 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 - Free Pascal»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


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