Нарисовать в qbasic. у меня что-то не получается.​

program zadacha;

uses crt;

var a: array[1..6] of integer;

        max,i: integer;

begin

for i: =1 to 6 do readln(a[i]);

max: =a[1];

for i: =1 to 6 do if max > a[i] then max: =a[i];

writeln(max);

readln;

end.

вроде правильно..

из пяти литровой переливаем в трех литровую получаем два литра сливаем их в ведро повтаряем процедуру получаем в ведре четыре литра

я пробовала у меня вышло 15 но возможны и другие варианты

т.к 3 вида флагов, значит возводим число 3 в степень равную кол-ву флагов

ответ: 81 сигнал