Знайдіть в Інтернеті відомості про «війну
браузерів» та підготуйте невеличку презен-
тацію.​

1. Чтобы решить задачу, надо определить, какое количество варенья съест Машенька за 20 дней. Вначале вычислим это количество в ложках, если известно, что за день она съедает по 5 ложек варенья:

5 * 20 = 100 ложек.

2. Теперь переведем 100 ложек варенья в граммы, если известно, что каждая ложка помещает 5 г варенья:

100 * 5 = 500 грамм.

3. Если исходное количество варенья составляет 650 грамм, тогда вычтем из этой массы ту часть, что съест Машенька за 20 дней и получим массу оставшегося варенья через 20 дней:

650 - 500 = 150 грамм.

ответ: получили, что через 20 дней в банке останется всего 150 грамм варенья.

//Школьный вариант с уродливым "пузырьком"
//Pascal ABC.NET 3.1 сборка 1256

Const
 n=10;
 m=20;
 z=30;

Var
 ar1:array[1..n] of integer;
 ar2:array[1..m] of integer;
 ar3:array[1..z] of integer;
 i,k,j:integer;
 b:boolean;

begin
randomize;
k:=-1;
b:=false;
  for i:=1 to n do
    ar1[i]:=random(20);
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if ar1[i]>ar1[j] then swap(ar1[i],ar1[j]);
  writeln('Array 1:');
  for i:=1 to n do
   write(ar1[i]:4);
  writeln;
  for i:=1 to m do
    ar2[i]:=random(20);
  for i:=1 to m-1 do
   for j:=i+1 to m do
    if ar2[i]>ar2[j] then swap(ar2[i],ar2[j]);
    writeln('Array 2:');
  for i:=1 to m do
   write(ar2[i]:4);
  writeln;
  for i:=1 to z do
    ar3[i]:=random(20);
  for i:=1 to z-1 do
   for j:=i+1 to z do
    if ar3[i]>ar3[j] then swap(ar3[i],ar3[j]);
   writeln('Array 3:');
  for i:=1 to z do
   write(ar3[i]:4);
   for i:=1 to n do
    begin
     k:=-1;
     for j:=1 to m do
     if ar1[i]=ar2[j] then
       begin
       k:=ar1[i];
       break;
      end;
     if k=-1 then continue;
     for j:=1 to z do
     if k=ar3[j] then
      begin
       b:=true;
       break;
      end;
    if b=true then break;
   end;
 writeln;
 writeln('Result:');
 if b=false then writeln('Нет') else writeln(k);
end.