Ответы на вопрос:
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.
Популярно: Информатика
-
SlavZgr09.11.2022 06:47
-
THEHOMIEWESTSIDE22.10.2020 12:58
-
alanada111.03.2023 23:38
-
karinroy16.04.2020 23:13
-
dima369319.04.2022 16:44
-
87766306266Данил07.06.2020 20:50
-
chapa0027.05.2022 22:36
-
yaritos26.03.2021 15:02
-
232привет30.09.2020 23:29
-
hffyj9524.03.2022 04:50