1)1110001
2)10100111
3)101101100
4)1000001110
Под определение "организация" здесь подходит только 2 и 4. Но 2 занимается веб-дизайном, тогда ответ - 4.
Var a,b,k:integer;
begin
readln(a,b);
k:=0;
while a*b<>0 do begin
if a>b then a:=a-b else b:=b-a;
k:=k+1;
end;
writeln(k);
end.
Пример:
4200 9126
22
Ответ:41 раз.
как сделал:
////////////////////
var k, i, n: Integer;
begin
n:=1;
k:=8;
while k>0 do
begin
i:=10;
while i<15 do
begin
writeln('Мне нравится паскаль');
n:=n+1 ;
i:=i+1;
end;
k:=k-1
end;
writeln(n);
end.
<span>да мы можем увидеть какие есть деревья ,животные и научиться различать их))</span>