Program p1;
uses crt;
var s1,s2,s3:string;
a:integer;
begin
read(s1);
a:= Pos(' ',s1);
s2:=Copy(s1,1,a-1);
Delete(s1,1,a);
s3:=s1+' ' +s2;
write(s3);
end.
Проверь так ?
Объем видеопамяти<span> рассчитывается по формуле: </span>V=I*X*Y, где I<span> – глубина цвета отдельной точки, </span>X, Y –<span>размеры экрана по горизонтали и по вертикали (произведение х на у – разрешающая способность экрана).
</span>1.Всего точек на экране (разрешающая способность): 1280 * 800 = 1024000
<span>2. Необходимый объем видеопамяти V= 64 бит * 1024000 = 65536000 бит = 8192000 байт = </span>8000 Кбайт<span>.</span>
Var i, N, sum: integer;
begin
sum := 0;
readln (N);
for i := 1 to N do sum := sum + i;
writeln (sum);
<span>end.</span>
Объем видеопамяти =
5*12*256*512 бит = 5*12*256*512 / 8 байт = 5*12*256*512 / (8*1024) Кбайт = 960 Кбайт