1 вариант по векторам:
использовать Чертежник
алг
нач
сместиться на вектор (1,10)
опустить перо
сместиться на вектор (3,-5)
сместиться на вектор (1.6,0)
поднять перо
сместиться на вектор (1.4,5)
опустить перо
сместиться на вектор (-2.5,-9)
сместиться на вектор (-3.5,0)
поднять перо
сместиться на вектор (7,0)
опустить перо
сместиться на вектор (0,9)
сместиться на вектор (4,0)
сместиться на вектор (1,-1)
сместиться на вектор (0,-3)
сместиться на вектор (-1,-1)
сместиться на вектор (-4,0)
поднять перо
сместиться на вектор (6,-4)
опустить перо
сместиться на вектор (3.5,9)
сместиться на вектор (3.5,-9)
поднять перо
сместиться на вектор (-5.5,4)
опустить перо
сместиться на вектор (4,0)
поднять перо
сместиться в точку (0,0)
кон
2 вариант - написать:
использовать Чертежник
алг
нач
вещ n=55
лит m="УРА"
написать(n, m)
кон
Program test;
const n = 100;
var i,k:integer;
m: array[1..n] of integer;
begin
randomize;
for i:=1 to n do m[i]:=random(1,100);
for i:=1 to n do if m[i] mod 2 =0
then inc(k);
writeln('Количество четных чисел: ',k);
end.<span>
</span>
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(('Я изучаю циклы'+NewLine)*15)
end.
<u>Результат</u>
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Var a:string;
begin
readln(a);
if length(a)=1 then a:=a+' ';
if a[2]<>' ' then delete(a,2,1) else writeln('Такого нет');
readln;
<span>end.</span>