Question

запишите на языке Паскаль фрагмент программы соответствуеющий блок-схеме. Определите значение переменной К после его выполнения при следующих значениях переменной х: 1, 5, - 10, 3, - 8, 6, 2, - 7, 4, 0​

Answer 1

Ответ:

var k,x:integer;

begin

k:=0;

repeat

read(x);

if x>0 then k:=k+1

until x=0;

write(k)

end.

k=6 (считаем количество положительных чисел до ввода 0)