Var a, b: integer;
begin
readln(a);
if (a = 1) then write('Здравствуйте, Уважаемая ');
if (a = 2) then write('Здравствуйте, Уважаемый ');
if ((b > 25) and (a = 1)) then writeln('мадама');
if ((b <= 25) and (a = 1)) then writeln('леди');
if ((b > 25) and (a = 2)) then writeln('сэр');
if ((b <= 25) and (a = 2)) then writeln('господин');
end.
Слова только поменяйте, что ли...:)
В HDD используется медный диск и считывающая головка, а твердотельный накопитель SSD основан на микросхеме, т,е, у него флеш-память
В пятеричной системе счисления используются цифры 0, 1, 2, 3, 4.
171 из десятичной в шестнадцатеричную = <span>AB
206 </span> из десятичной в шестнадцатеричную =<span>CE
</span>171 из шестнадцатеричные в десятичную = <span>369
</span>206 из шестнадцатеричные в десятичную =<span>518</span>
//PascalABC.NET 3.2 сборка 1318
Const
n=5;
Var
ar:array[1..n] of integer;
CouOfDel,i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=2 to n do
if ar[i-1]>ar[i] then inc(CouOfDel);
if CouOfDel>1 then writeln('Нет') else writeln('Да');
end.
Пример ввода:
1
2
2
1
3
Пример вывода:
Да