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