Ответы на вопрос:
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.
Популярно: Информатика
-
cstlm18.08.2022 23:30
-
aaaagggyy11.09.2021 02:03
-
Шаригул11.09.2021 14:23
-
den4ik2285504.03.2021 06:03
-
Татьяна422225.03.2020 18:26
-
yan2005byp06ne221.08.2022 03:06
-
макашария30.10.2020 20:42
-
рашад1024.06.2020 16:50
-
папа29814.03.2023 20:44
-
aitbek9914.10.2021 14:37