Question

Срочно нужно написать программу на Паскале. Переменные x и k

Answer 1

вводится последовательность чисел которая заканчивается нулем. Посчитать сколько в ней чисел больше 1

var
    x, k: real;

begin
    repeat
        write('x = ');
        readln(x);
        if x > 1 then k := k + 1;
    until x = 0;
    writeln(k);
end.

Пример вывода
x = 2
x = 1
x = 0
1

Answer 2

То есть последнее значение в программе выдает K?

Answer 3

ну да, больше в программе никаких значений и не выдает

Answer 4

writeln(k);

Answer 5

Огромное спасибо за помощь!

Answer 6

для спасибо есть кнопочка)