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