// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Введите строку:'); var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count; var m:=s.Length-n; if m>n then Writeln('В строке букв меньше иных символов') else if m<n then Writeln('В строке букв больше иных символов') else Writeln('В строке поровну букв и иных символов') end.
Примеры Введите строку: Это 12+32/16t/7+3.1415 тест В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест В строке букв больше иных символов
Kostyuchik-Astakhov531
11.12.2020
Информационный объект — это описание некоторой сущности (реальногообъекта, явления, процесса, события) в виде совокупности логически связанных реквизитов (информационных элементов) Компьютер это-Электронно-вычислительная машина . Информация- сведения независимо от формы их представления. Персональный компьютер, ПК (англ. personal computer, PC), ПЭВМ (персональная электронно-вычислительная машина) — настольная микро-ЭВМ, имеющая эксплуатационные характеристики бытового прибора и универсальные функциональные возможности.
lawyer-2019
11.12.2020
Px - обозначение пикселя
количество пикселей в изображении = ширина * высота
количество цветов = 2ⁱ^1 - глубина (битность) цвета, т. е. количество бит на 1 px
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите строку:');
var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
var m:=s.Length-n;
if m>n then Writeln('В строке букв меньше иных символов')
else
if m<n then Writeln('В строке букв больше иных символов')
else Writeln('В строке поровну букв и иных символов')
end.
Примеры
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов