Program ABC;var A,B,C:real;beginwrite('Введите три числа ');read (A,B,C);if A>0 then writeln (A,' положительное');if B>0 then writeln (B,' положительное');if C>0 then writeln (C,' положительное');end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
