Объяснение:
^ знака нет, но он выполняет свои действия.
var a,b,t:longint;
begin
readln(a,b);
if(a<b) then a:=a*5 else if (b<a) then begin t:=a; a:=b; b:=t; end;
writeln('a = ',a);
writeln('b = ', b);
end.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (ke,ko):=(0,0);
loop 5 do
if ReadInteger.IsOdd then Inc(ko)
else Inc(ke);
Writeln('Четных ',ke,', нечетных ',ko)
end.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var n:=ReadInteger('n=');
var b:=ArrRandom(n,10,99); b.Println;
Swap(b[1],b[n-2]); b.Println;
b:=b.Sorted.ToArray; b.Println
end.
<u><em>Тестовое решение</em></u>
n= 15
74 23 76 50 79 79 38 74 21 33 45 10 35 58 48
74 58 76 50 79 79 38 74 21 33 45 10 35 23 48
10 21 23 33 35 38 45 48 50 58 74 74 76 79 79
Количество точек:
256*2*128*2= 2^(17)
2Мб (Мбит или Мбайт ???????)
объём памяти: 2 Мбайта=2*2^23 = 2^(24) бит ?
2 Мбита=2*2^20 бит = 2^21 бит ?
глубина цвета: объём памяти/кол точек =
= 2^24 / 2^17 =2^7=128 бит ?? если Мб - Мбайт
или 2^21/2^17 = 2^4 =16 бит ?? если Мб -Мбит
2)
F =5,1Мбайт = 5,1*2^20 бит =5 347 737,6 байт
t=2*60 =120c
разрядность =5347737,6 / (22050*120)= 16 бит