активное действие - котёнок бежит, автомобиль едет
пассивное действие - котёнок спит, автомобиль стоит
___________________________________
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Примеры</u>
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов
Простой калькулятор на pascal
Pascal
//////////
var
a, b:Integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Ваш результат сложения:', a + b);
writeln('Ваш результат вычитания:', a - b);
writeln('Ваш результат умножения:', a * b);
writeln('Ваш результат деления:', a / b);
end.