//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(14,-99,99); mas.Println;
var a:=mas[1]**3; var b:=mas.Where(t-> t> a).Count;
if b=0 then Writeln('поиск неудачен') else
Writeln('Таких элементов ->',b);
end.
Комплекс программ:
- обеспечивающих обработку или передачу данных;
- предназначенных для многократного использования и применения разными пользователями.
Время получения Васей 1024 Кбайт =
{2^(10) *2^(10) *2^3 } бит : {2^(17)} бит/с =2^6 c = 64 секунды
Петя 8 Мбайт получит за
{2^3 * 2^(23)} бит : {2^16} бит/с = 2^(10) = 1024 c
1024+64 =1088 c
Ответ : 1088 с
Var a,b:longint;beginreadln(a,b);writeln(a+b);writeln(a-b);writeln(a*b);
end.
Начало
Открываешь холодильник.
Берешь два куриных яйца.
Идешь к столу.
Наливаешь масло в сковороду.
Ждешь пока оно разогреется.
Выливаешь яйца на сковороду.
Солишь.
Ждешь приготовления.
Выкладываешь на тарелку.
Ешь.
Конец
P.S: думаю так