Program ghg;
var a,b,s:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
if (a<=2*109) and (b<=2*109) then
s:=a+b;
writeln('s=',s);
end.
1 Гбайт = 2^30 байт
4 Гбайт = 2^120 байт
4 Гбайт =8^40 байт
x=40
Любой из нас с самого детства знает, что красный сигнал светофора запрещает движение, зелёный сигнал разрешает движение, а жёлтый - предупреждает о смене сигналов.
Но далеко не каждый знает, как работает современный «продвинутый» транспортный светофор.
К красному сигналу добавился жёлтый. Через пару секунд они оба одновременно погаснут, и включится зелёный.
Красный с жёлтым погасли, включился зелёный, и можно двигаться во всех направлениях (если, конечно, знаками или разметкой не дано иных указаний).
Но не торопитесь начинать движение. Сколько бед и трагедий видел автор этих строк, когда соседи по дороге слепо ориентировались на зелёный сигнал. Сначала нужно убедиться, остановились ли те, кому сейчас загорелся красный. Кто-то может просто не успеть остановиться, а кто-то ну очень спешит и готов проскочить перекрёсток, пусть даже, рискуя жизнью (ладно бы только своей, но ведь и чужой тоже).
1) 32768
2)5,5 и 44
3)2048 и 2097152
4)12288 и 1258912
5)1024
6)850
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var q:=new Queue<real>;
foreach var x in SeqRandomReal(11,-1,3) do
q.Enqueue(x);
q.Println; Println;
q.Enqueue(q.Where(t->t>0).Sum); // добавили сумму
q.Println; Println;
q.Dequeue; // удалили первый элемент
q.Println
end.
