Предоставлена таблица истинности и построение логической схемы.
Var
a,b,k:longint;
begin
b:=1;
k:=0;
while b<10000 do
begin
read(a);
b:=b*a;
k:=k+1;
end;
writeln('Kol:',k);
writeln('Number:',b);
readln
end.
Переведём минуты в секунды: 2 минуты, 8 секунд = 128 секунд
Узнаем вес текста, который скачал Петя: 16 × 128 = 2048 килобайт
Один символ в кодировке ASCII весит 1 байт
2048 килобайт = 2048 × 1024 = 2097152 байт
Значит Петя передал 2097152 символа в сообщении.
Минимальный обьект, с которым работает пользователь Эксель - ячейка
// PascalABC.NET 3.0, сборка 1111
begin
var a:=ArrRandom(10,-15,25);
Write('Исходный массив: '); a.Println(',');
Writeln('Сумма min+max=',a.Min+a.Max)
end.
<u><em>Тестовое решение:</em></u>
Исходный массив: -8,-6,15,16,17,21,9,10,-15,19
Сумма min+max=6