Срочно нужно написать программу на Паскале. Переменные x и k. Created by alchemistoverdose. informatika-ru

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

alchemistoverdose @alchemistoverdose

September 2021 1 47 Report

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

Answers & Comments

Aillianna

Verified answer

Вводится последовательность чисел которая заканчивается нулем. Посчитать сколько в ней чисел больше 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

1 votes Thanks 1

Aillianna 2 и 4 больше 1

Aillianna еще вопросы будут?

alchemistoverdose 2 в данном случае это K?

Aillianna да

Aillianna k это счетчик

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

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

Aillianna writeln(k);

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

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