Предмет: Информатика,
автор: lilpeep393929
запишите на языке Паскаль фрагмент программы соответствуеющий блок-схеме. Определите значение переменной К после его выполнения при следующих значениях переменной х: 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)
Интересные вопросы
Предмет: Русский язык,
автор: жалгасбаеваСандугаш
Предмет: Русский язык,
автор: Нассттена
Предмет: Английский язык,
автор: dzusovaluda
Предмет: Математика,
автор: karpion2072
Предмет: Русский язык,
автор: оля2199