begin
var (N, a, x1, x2) := (12, 1.0, 2.0, 3.0);
PartitionPoints(x1, x2, N).
Tabulate(x -> Sin(Sqrt(a ** 3 + x)) / (14 + a * x)).
ForEach(p -> Writeln(p[0]:17:14, p[1]:20:16));
end.
Var
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=Length(s) downto 1 do
if Pos(s[i],'ABCDabcd')>0 then Delete(s,i,1);
Writeln('Результат: ',s)
end.
Пример
Введите строку: Carlsbad is an affluent seaside resort city
Результат: rls is n ffluent sesie resort ity
Пример вашей программы в прикрепленном файле
Поднять перо --> Опустить перо
Повторить 2 --> Повторить 4
Опустить перо --> Поднять перо
В «перо» берешь команду печать, ставишь костюмы разных цветов, создаешь скрипт, где отдельный круг перемещается в точку кота, и в цикле меняешь костюмы