81920 килобайт
или же 81 мб.
Var
a:array[1..10] of integer;
i:integer;
begin
randomize;
writeln('Ishodnyy massiv:');
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
write(a[i],' ');
end;
for i:=1 to 5 do
begin
a[i*2]:=a[i*2]+a[i*2-1];
a[i*2-1]:=a[i*2]-a[i*2-1];
a[i*2]:=a[i*2]-a[i*2-1];
end;
writeln('Novyy massiv:');
for i:=1 to 10 do
write(a[i],' ');
end.
<u>Pascal:</u>
var x,y:real;
begin
write ('X = ');
readln(x);
write ('Y = ');
readln(y);
writeln ('Summa: ',x+y);
writeln ('Srednee: ',(x+y)/2);
readln;
end.
<u>C++:</u>
#include <iostream>
using namespace std;
int main()
{
float x,y;
cout <<"X = ";
cin >>x;
cout <<"Y = ";
cin >>y;
cout <<"Summa: " <<x+y <<endl
<<"Srednee: " <<(x+y)/2 <<endl;
return 0;
}
<span>исполняемый ехе файл получается в результате работы : компилятора
</span>
101110, 101111. В десятичной эти числа равны 46 и 47.