Var a,b,c:integer;
begin
a:=-6;
b:=3;
c:=a+b;
if (c>b) then
a:=c
else
b:=-b;
a:=c+a;
writeln(a,' ',b);<span>
end.
a = -9
b = -3</span>
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите:',ReadInteger('n=')).Any(x->x<0))
end.
<u>Примеры</u>
n= 5
Вводите: 6 -4 56 34 0
True
n= 3
Вводите: 67 9453 457
False
Var str:string; i, n: integer; begin readln(str); if str:='q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', 'a', 's', 'd', 'f',
КираА
Var s : string;
function Conv(var aStr : string): string;
var ch : char;
i : integer;
begin
Conv:=' '; { na sluchai esli stroka budet pustoi}
for ch:='a' to 'z' do
for i:=1 to Length(aStr) do if aStr[i]=ch then aStr[i]:=Chr(Ord(aStr[i])-32);
Conv:=aStr;
end;
begin
Writeln('Enter string');
Readln(s);
Writeln(Conv(s));
Readln
end.
для преобразования больших в маленькие замените -32 на +32 и в операторе for 'a' to 'z' поменяйте на большие
игры разных категорий антивирус фото и тд