<u>Чертежник PascalABC.NET 3.3
</u>
Текстовый файл с кодом для букв и другой фигуры(круг) прикреплены:
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.Select(t -> LowCase(t) in ['а', 'б'] ? 2 * t : t)
.JoinIntoString('').Println
end.
<h2>А роза упала на лапу Азора</h2><h2>АА розаа упаалаа наа лаапу ААзораа</h2>
по риснку увиидшь - то что в середине - это объединение и пересечение множеств
Uses crt;
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
k:=3;
a[1]:=2;
for i:=2 to n do
begin
a[i]:=a[i-1]+k;
k:=k+2;
end;
for i:=1 to n do
writeln(a[i]);
end.
64 плюс 32 плюс 16 плюс 4 плюс 2 плюс 1 равно 129