<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-500,500); a.Println;
Writeln('min=',a.Min,', max=',a.Max,', Sп=',
a.Where(x->x in [10..99]).Sum)
end.
<u>Пример</u>
475 186 243 323 -497 23 -65 -2 180 74
min=-497, max=475, Sп=97
var n,count:integer;
begin
repeat
readln(n);
if(n<>999) then inc(count);
until(n=999);
writeln(count);
readln;
end.
Линейный
Жили-были дед да баба.
Была у них курочка ряба.
Снесла курочка яичко, не простое, золотое.
Дед бил, бил – не разбил.
Баба била, била – не разбила.
Мышка бежала, хвостиком махнула.
Яичко упало и разбилось.
Дед и баба плачут.
Курочка кудахчет.
с ветвлением
«Гуси-лебеди»
Начало
Девочка просит печку помочь.
Если съешь моего пирожка,
то помогу,
иначе не помогу
Конец
Любишь кататься, люби и саночки возить
Начало
если любишь кататься,
то люби и саночки возить
Конец
Циклический алгоритм
«Собирай по ягодке, наберешь кузовок»
Сказка о рыбаке и рыбке:
- раз старик закинул невод, пришел невод с одною тиной
второй раз старик закинул невод... .
1) t=8 с + 3мбайта/218бит=115440с Из это становиться понятно что если сжать и отправить то будет быстрее!