Задание 3.Рисунок кодируется с следующих команд:

Установить х, у – установить в качестве текущей точку с координатами (х, у);

Линия к х1, у1 – нарисовать линию от текущей точки до точки с координатами

(х, у), при этом точка (х1, у1) становится текущей;

Окружность х, у <радиус> – нарисовать окружность с центром в точке (х, у) и

радиусом <радиус>;

Прямоугольник х1, у1, х2, у2 – нарисовать прямоугольник, где (х1, у1) –

координаты левого верхнего, а (х2, у2) – правого нижнего угла этого

прямоугольника.

По имеющемуся описанию восстановите рисунок, использую координатную

плоскость.

Описание

Установить 40, 70

Линия к 10, 70

Линия к 10, 120

Линия к 190, 120

Линия к 190, 70

Линия к 160, 70

Прямоугольник 40, 90, 160, 10

Окружность 80, 50 <20>
3 задание и 2 плз

Пункт а:

Насколько я помню, в паскале невозможно реализовать бесконечный цикл, поэтому решение будет слегка притянуто за уши. Например если вы введете число из 9001 символа, программа будет работать неккоректно. Для выхода из цикла используется 'метка'.

a, counter, Summa : integer;
Label Transfer;
Begin
writeln('Введите число');
readln(a);
counter := 1;
counterTw0 := counterTwo + 1;
while counter < 9000 Do
    begin
    counter := counter +1;
    if (a div counter) < 0 then Transfer
    else counterTwo := counterTwo + 1;
    else;
Goto Transfer;

//Узнали, что в числе counterTwo символов

while counter < counterTwo Do
Summa := Summa + ((a div counter) mod 10);

Summa := Summa + (a mod 10);
writeln(Summa);
end.

В цикле проверяете (a mod 2) равно ли нулю, то бишь равен ли нулю остаток. Если да - число четное. одновременно с этим первое четное число кладете в переменную max, а остальные четные сравниваете с этой переменной, если какое-то число больше - его кладете в переменную max. Ясно? Если нет, могу написать программу, но лучше чтобы вам было ясно

UPD: можно через массивы, но это не хардкорно

a, max, counter   :   integer;
begin
max := 0;
for counter = 1 To 15 Do
   begin
   writeln("Write ur number:");
   readln(a);
   if (a mod 2) = 0 then 
       if a > max then max := a;
   end;
writeln(max);
readln();
end.

–––––––––––––––––––––––––––––––––––
Вам Б-г