Есть ответ 👍

Перечислите основные формы алгоритма.

220
362
Посмотреть ответы 2

Ответы на вопрос:


линейный циклический разветвляющий


begin

 var count := 0;

 var num := 0;

 repeat

   var a := ReadInteger;

   Inc(num);

   if a < 0 then

     Inc(count);

 until num = 3;

 Println('Количество отрицательных: ', count);

end.

Популярно: Информатика