//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=1 to n-1 do
if ar[i]>ar[i+1] then
begin
writeln('Убывает на одном из участков');
exit;
end;
writeln('Возрастает');
end.
1 взять пакет с кормом в руки
2 открыть пакет
3 подойти к миске
4 наклониться
5 насыпать корм
6 выпрямиться
7 убрать корм на место
8 позвать собаку
98% что программу ты написал правильно, просто я Паскаль немного забыл , но основное помню
1)
высказывание <span> </span>не (не <em>А</em> и <em>B</em>) будет ложным когда высказывание
(не <em>А</em> и <em>B</em>) будет истинным, оно в свою очередь будет истинным когда
будут истинны одновременно высказывание не <em>А</em> и высказывание <em>B</em>
то есть когда А ложное а В истинное
2)
<span>Число 376 трехзначное и четное</span>
А=Число 376 трехзначное
В=Число 376 четное
А и В
или
<var></var>
<span>Если сумма цифр числа делится на 3, то число делится на 3</span>
<span>А=<span>сумма цифр числа делится на 3</span></span>
<span><span>В=<span>число делится на 3</span></span></span>
<span><span><span>если А то В</span></span></span>
<span><span><span>
</span></span></span>
Основные характеристики устройств внешней памяти