Var a,b,c:Integer;
begin
Read(a,b,c);
if (a<b) and (b<c) then
WriteLn('В порядке возрастания')
else if (a>b) and (b>c) then
WriteLn('В порядке убывания')
else
WriteLn('Нет');
<span>end.
</span>Нажимаем "лучший ответ"
Возьми слово переписка
подбирай слова такие чтобы в них была буква п е р е п и с к а.
все!
Не будут. Потому что РИСОВАНИЕ в библиотех графики Паскаля.
Program z1;
var x, y : integer;
begin
x:=3;
y:=5*x + 6;
write (y);
end.
Он шел так: вверх - вверх - вниз. Чтобы вернуться назад, надо пойти вверх - вниз - вниз
C:\Школа\Уроки\Химия → C:\Школа\Уроки → C:\Школа\Уроки\... → C:\Школа\Уроки\...\Логика
Название папки, обозначенное ..., восстановить из условия не получится. Пример возможного полного пути каталога, с которым пользователь начинал работу:
C:\Школа\Уроки\Информатика\Логика