// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var c1:=ReadlnChar('Введите первый символ:'); var c2:=ReadlnChar('Введите второй символ:'); Print(c1); if c1>c2 then Print('>') else if c1=c2 then Print('=') else print('<'); Println(c2) end.
Примеры Введите первый символ: a Введите второй символ: b a < b
Введите первый символ: d Введите второй символ: d d = d
Введите первый символ: z Введите второй символ: m z > m
Введите первый символ: q Введите второй символ: Q q > Q
Var ma:array[1..n,1..n] of integer; i,j:integer; begin randomize; for i:=1 to n do begin for j:=1 to n do begin ma[i,j]:=random(50)-20; write(ma[i,j]:4); end; writeln; end; writeln('Сторки:'); for i:=1 to n do begin write(i,':'); for j:=1 to n do if ma[i,j]<0 then begin writeln(j); break; end; writeln; end; writeln('Столбцы:'); for j:=1 to n do begin write(j,':'); for i:=1 to n do if ma[i,j]<0 then begin writeln(i); break; end; writeln; end; end.
2)=880
3)=101101