Var a:integer; Begin read(a); if a>0 then write('Число положительное'); if a<0 then write('Число отрицательное'); if a=0 then write('Введённое число - 0'); End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
