<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(49,-50,50); a.Println;
Writeln('Сумма равна ',a.Sum);
if not a.Any(t->t=0) then Writeln('Произведение равно ',
a.Aggregate(BigInteger(1),(p,q)->p*q))
end.
<u>Пример</u>
-26 -4 -2 -12 -38 -3 3 -12 -22 -30 -41 -38 34 20 34 -7 -10 -34 16 -1 -20 -17 49 -48 50 -37 -30 25 -42 -24 16 7 -27 2 8 44 -31 42 39 -29 -4 21 19 41 -34 -9 -4 48 47
Сумма равна -71
Произведение равно -5875206582842929080605341032818854321985176247205888000000000
#include <iostream>
int main()
{
float x,y;
std::cout <<"X = ";
std::cin >> x;
std::cout <<"Y = ";
std::cin >> y;
float max=(x>y) ? x:y;
float min=(x<y) ? x:y;
std::cout <<"Big: " <<max <<std::endl
<<"Small: " <<min <<'\n';
return 0;
}
Var t:integer;
begin
write('Введите время в секундах, прошедшее с начала раб.дня'); readln(t);
if (t>28800) and (t<32400) then write('Рабочий день закончен около ', round((t-28800)/60),' минут назад');
if (t>32400) then write('Рабочий день закончен около ', round((t-28800)/3600),' часов <span>назад');
</span>if (t<28800) then write('До конца рабочего дня осталось ', round((28800-t)/3600),'ч.);
end.
1 буква занимает всегда один байт памяти, восклицательный знак 4 кажется
Размер файла = 5120*24 бит.
Скорость второго соединения = (размер файла)/(15сек) =
= (5120*24 бит)/(15 сек.) = 512*10*8*3/(5*3) (бит/сек.) =
= (512*2*8) бит/сек. = 8192 бит/сек.
Ответ. 8192.
