Малыш решил угостить своего друга карлсона и достал из чулана огромную 8-литровую банку малинового варенья. карлсон только собрался попробовать его, как неожиданно появилась домоправительница фрекен бок и заявила, что тоже хочет варенья. «не нужно ссориться! я разделю для вас варенье поровну, то есть каждому по 4 литра» – сказал малыш. , малышу сделать это, если в чулане он нашёл только 3-литровую и 5-литровую пустые банки.

1) Из 8 л выливаем в 5 литровую, затем из 5-ти литровой в 3-х литровую Итого в 8 литровой у нас - 3 литра, в 5 литровой 2 литра, в 3-х литровой 3 литра
2)Выливаем из 3-х литровой в 8-ми литр - теперь в 8-литровой у нас 6 литров, 5-ти л - 2 литра, в 3-х литровой-0
3) Из 5-ти литровой выливаем 2 литра в 3-х литровую, а из 8-ми литровой выливаем в 5-ти литровую. И потом из 5-ти литровой доливаем в трехлитровую до полной то есть 1 литр.
Итого у нас в 8 литровой 1 литр в 5-литровой 4 литра и в трехлитровой 3 литра. Выливаем из 3-х литровой в 8 литровую и  у нас по 4 литра в обоих банках...фухх

Наливаем варенье в 3-ёх литровую банку, выливаем эти 3 литра в 5-ти литровую, Снова наливаем в 3-ёх литровую банку варенье и переливаем эти 2 литра, которые смогут влезть в 5-ти литровую, в 3-ёх литровой останется литр, из 5-ти литровой банки выливаем варенье обратно в 8-ми литровую, из 3-ёх литровой переливаем наш литр в 5-ти литровую, набираем пустую 3-ёх литровую банку варенье из 8-ми литровой, в которой останется 4 литра, а полную 3-ёх литровую выливаем в 5-ти литровую, в которой уже есть литр, получится, что в 8-ми литровой банке 4 литра и в 5-ти литровой банке 4 литра, которые он уже может дать по отдельности Фрекен и Карлсону.

 

Вопрос 1.

Какие ключевые слова не используются для записи команды ветвления?

and  

Вопрос 2.

Как выглядит полная форма команды ветвления?

if ... then ... else ...

  Вопрос 3.

Как выглядит сокращённая форма команды ветвления?

if ... then ...

Вопрос 4.

Какая из команд записана неправильно?

  if a:=0 then a>0;

 

Вопрос 5.

Какая из команд записана правильно?

if x=0 and a>0 then b:=0 else b:=x;

Вопрос 6.

Какая из команд записана правильно?

if (x=0) and (a>0) then begin b:=0;c:=x; end else b:=x;

 

Вопрос 7.

Что будет напечатано на экране в результате выполнения данного фрагмента программы

a:=6;

if a mod 2 = 0 then write(a+2) else write(a-2);

 8  

Вопрос 8.

Что будет напечатано на экране в результате выполнения данного фрагмента программы

a:=12;

if a div 2 >= 6 then b:=a mod 5 else b:=a div 3;

write(a-b);

 10

 

Вопрос 9.

Что будет напечатано на экране в результате выполнения данного фрагмента программы

a:=22;

if a*a >= 225 then a:=a mod 6

Write(22-a);

 18

 

Вопрос 10.

Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 9

a:=5; b:=8; c:=11;

if (a>b) ... (b

 4 не знаю - ФРАГМЕНТ ПРОГРАММЫ НЕ ДОПИСАН

 

Вопрос 11.

Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 3

a:=15; b:=7; c:=4;

if (a>b) ... (b

4 не знаю - ФРАГМЕНТ ПРОГРАММЫ НЕ ДОПИСАН

 

Вопрос 12.

Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 5

a:=1; b:=8; c:=6;

if (a<=c) ... (b<=c) then z:=c-a else z:=c-b;

2 or

Program summa;

 Uses crt;

 Const m=20;

 Var a:array[1..m] of integer;

     i,s:integer;

 Begin

   For i:=1 to m do

    a[i]:=random(101)-50;

   For i:=1 to m do

    s:=s+a[i];

   If s>50 then writeln('Сумма = ',s) else

    for i:= 1 to m do

      Writeln('Элемент массива №',i,' равен ',a[i]);

 End.

 

или

 

Program summa;

 Uses crt;

 Const m=20;

 Var a:array[1..m] of integer;

     i,s:integer;

 Begin

   For i:=1 to m do

    Readln(a[i]);

clrscr;

   For i:=1 to m do

    s:=s+a[i];

   If s>50 then writeln('Сумма = ',s) else

    for i:= 1 to m do

      Writeln('Элемент массива №',i,' равен ',a[i]);

 End.