Срочно нужно написать программу на Паскале. Переменные x и k
Приложения:
Ответы на вопрос
Ответил Aillianna
0
вводится последовательность чисел которая заканчивается нулем. Посчитать сколько в ней чисел больше 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
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
Ответил alchemistoverdose
0
То есть последнее значение в программе выдает K?
Ответил Aillianna
0
ну да, больше в программе никаких значений и не выдает
Ответил Aillianna
0
writeln(k);
Ответил alchemistoverdose
0
Огромное спасибо за помощь!
Ответил Aillianna
0
для спасибо есть кнопочка)
Новые вопросы