===== PascalABC.NET =====
begin
var q := new Queue<integer>(SeqRandom(10, -99, 99));
q.Println;
q.Enqueue(q.Take(5).Sum);
q.Println;
end.
Program z25;
Var x,y,c:integer;
Begin
write('Введите x = '); readln(x);
write('Введите y = '); readln(y);
c:=x;
x:=y;
y:=c;
writeln('X = ', x);
writeln('Y = ', y);
End;
В общем делятся на три группы:
ПЗУ, ОЗУ и носители
Примеры:
Жесткий диск (внешний и внутренний)
Диск
Флешка
Карт ридер
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqReal(3).Where(t -> t > 0).Sum.Println
end.
<h2>3.53 -6.23 12</h2><h2>15.53 </h2>