Farleyзапишите на языке Паскаль фрагмент программы соответствуеющий блок-схеме. Определите значение переменной К после его выполнения при следующих значениях переменной х: 1, 5, - 10, 3, - 8, 6, 2, - 7, 4, 0
ответы: 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)
275
hoardЧтобы ответить необходимо зарегистрироваться.
