Var a : integer; beginwriteln('введите температуру: '); read(a); if (a< 31) and (a> 10) then writeln('жарко'); if (a> 0) and (a< 11) then writeln('прохладно'); if a> 30 then writeln('температура не соответстувет условию 0< t< 30'); if a< 1 then writeln('температура не соответстувет условию 0< t< 30'); end. т.к при копировании текста из паскаля строки сливаются- нормальный ответ в комментарии
Спасибо
Ответ дал: Гость
папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку.
Ответ дал: Гость
картинка длжна быть в папке с программой и быть в формате bmp
Популярные вопросы