Какая фигура получится после выполнения программы? переменная x пероопустиx=100 повтори 3 [вперед x направо x+20 x=x+30]​

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.

пусть х лет мальчику, тогда

(х+2)/(х-2)=2

х+2=2(х-2)

х+2=2х-4

х=6лет мальчику

пусть у лет девочке, тогда

(у+3)/(у-3)=3

у+3=3(у-3)

у+3=3у-9

2у=12

у=6 лет девочке

ответ : мальчик и девочка одного возраста

количество базовых цветов обозначим за n. из всех базовых цветов будет складываться какой то один цвет, соответственно количество всевозможных цветов можно вычислить по формуле n=2^(2*n)

var s1,s2: string;

begin

  s1: ="параллелограмм";

  s2: ="гром";

  for i: = 1 to length(s1) do

  begin

      if i > length(s2) then s[i]='';

      if s1[i]< > s2[i] then s1[i]=s2[i];

    writeln(s1);

  end;

end.

чем не вариант, если правил нету)