<span>а:= а - в
20 символов ( . ) ( . )
</span>
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125
Номер 10
а.)В 8 часов
б.)Названия городов пишутся с прописной буквы.
в.)Не заканчивается нулём.
Номер 11
У Кати 5,у Люды - 4.у Аллы - 3.
1 задача:
var n:integer;
x:real;
begin
writeln ('Введите число X'); readln(x);
writeln ('Введите максимальную степень числа X'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
<span>end.
----------------------
2 задача:
const x=2;
var n:integer;
begin
writeln ('Введите максимальную степень числа 2'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
<span>end.
--------------------
Просто интересно, почему кто-то выполняет такие задания ЛЕТОМ?о_О</span></span>
Закачка файла винтика заняла 20 минут если бы не шпунтик со свойм файликом. Четыре минуты он качал с нормальной скоростью, а потом с половинной
Файл: 4+16*2=36 мин
Размер (Объём) файла шпунтика 20% больше
Он качал бы 20 мин.Начал качать после винтика, скорость уменьшается вдвое
48 мин. Но через 32 минут, винтик закончил скачивание и скорость умножилась на 2
48-32=16 еще 8 минут
<span>Разница в "4 МИНУТАХ"</span>