<span>Двоичное кодирование</span>
Var a,b,p:integer;
begin
writeln ('Введите стороны прямоугольника:');
readln(a,b);
p:=2*(a+b);
writeln ( 'Периметр прямоугольника = ',p);
readln;
end.
Пример:
<span>Введите стороны прямоугольника:
3 5
Периметр прямоугольника = 16</span>
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var s:=ReadlnString('Введите текст').ToWords;
Writeln('Кол-во равно ',s.Where(x->x[1]='а').Count)
end.
<u><em>Тестовое решение:</em></u>
Введите текст Большой арбуз оказался зеленым, а маленький - красным
Кол-во равно 2
Две строки по три ячейки = 6