Дано:
K=1024*528
i=32 бит
I-?
Решение:
I=K*i
I=1024*528*32 бит=17301504 бит=2,0625 Мбайт
Ответ: примерно 2 Мбайт
Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do
readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do
if a[i]<10 then
a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do
write (a[i], ' '); //Вывод массива на экран
<span>end.</span>
Ответ:
Думаю, в данном случае это будет сценарий игры, поскольку по нему игроки должны идти, если игра является линейной.
USES CRT;
VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;
BEGIN
ClrScr;
WriteLn('Vvedite nomer bileta: ');
ReadLn(n);
m1:=n div 1000;
n1:=m1 div 100;
n2:=m1 mod 10;
n3:=(m1-n1*100-n2) div 10;
s1:=n1+n2+n3;
m2:=n mod 1000;
n4:=m2 div 100;
n5:=m2 mod 10;
n6:=(m2-n4*100-n5) div 10;
s2:=n4+n5+n6;
if s1=s2 then WriteLn('Bilet schaslivyi')
else WriteLn('Bilet ne schaslivyi');
ReadLn
END.