Озорничали... Писать задачу они могли и так, с открытой дверью. Смотрели телевизор, тоже может быть, но ведь с открытой дверью не все рискнут по хулиганить...))))
Но кстати и задачу тоже могли... Ведь подсказывать нехорошо... Но я за "озорничали"
Begin
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
begin
if a*a+b*b=c*c then
writeln(a:4,b:4,c:4);
end;
<span>end.</span>
Var
a: array [1..10] of real;
s: real;
i: integer;
begin
s:= 0;
for i:= 1 to 10 do
begin
writeln('Введите число');
readln(a[i]); //Вводим i-ый элемент массива с клавиатуры
if a[i] > 0 then s:= s + a[i]; {Если введенный элемент >0, то прибавляем к текущему значению s введенный элемент}
end;
writeln('Сумма положительных элементов массива: ', s)
end.
А) 20*0,6 = 12мб. (после сжатия).
12мб = 12 * 2^23 бит.
Теперь находим время на передачу.
12 * 2^23 бит/2^20 = 12 * 8 = 96.
96 + 10 + 2 = 108.
Б) 20мб = 20 * 2^23 бит.
20 * 2^23/2^20 = 20 * 8 = 160.
160 - 108 = 52.
Ответ: А52.