Program One; var a, b, c: real; count : byte; begin readln (a, b, c); count := 0; if a < 0 then inc (count); if b < 0 then inc (count); if c < 0 then inc (count); wrireln (count); end.
Надеюсь на лучший ответ:)
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
