Напишите наибольшее целое число х, для которого истинно высказывание: (х>5) и не (х>15)

Объяснение:

Нам сказано, что (х > 5) и не (х > 15). Мы можем записать это так: (x > 5) и (х 15). Наибольшее целое число, при котором будет выполняться это условие, равно 15.

ответ: 15.

с cd-r информацию нельзя удалить, можно только добавить. с cd-rw- можно удалить.

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.