// PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
egin var s := ReadString; var digit, letter: integer; for var i := 1 to s.length do if (s[i] >= '0') and (s[i] <= '9') then inc(digit) else if (s[i] ='ё')or(s[i]='Ё')or(s[i] >='а')and(s[i]<='я')or(s[i] >='А')and(s[i]<='Я')or(s[i] >='a')and(s[i]<='z')or(s[i] >='A')and(s[i]<='Z')then inc(letter);
if digit < letter then writeln('Букв больше, чем цифр на ', letter - digit) else if digit > (s.length - digit) then writeln('Цифр больше, чем букв на ', digit - letter) else Writeln('Цифр столько же, сколько и букв');
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица [',m,',',n,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); a:=Transpose(a); Writeln('*** Транспонированная матрица [',n,',',m,'] ***'); a.Println(4) end.
// Внимание! Если программа не работает, обновите версию!
egin
var s := ReadString;
var digit, letter: integer;
for var i := 1 to s.length do
if (s[i] >= '0') and (s[i] <= '9') then
inc(digit)
else
if (s[i] ='ё')or(s[i]='Ё')or(s[i] >='а')and(s[i]<='я')or(s[i] >='А')and(s[i]<='Я')or(s[i] >='a')and(s[i]<='z')or(s[i] >='A')and(s[i]<='Z')then
inc(letter);
if digit < letter then
writeln('Букв больше, чем цифр на ', letter - digit)
else
if digit > (s.length - digit) then
writeln('Цифр больше, чем букв на ', digit - letter)
else
Writeln('Цифр столько же, сколько и букв');
end.