16*50*64=51200 символов. 1 символ кодируется 16 битами.
51200*16 = 819200 бит переводим в байты
819200/8=102400 байт.
32*6240=199680 байт
199680+102400=302080 байт.
302080/1024=295 Кб. Вообще такой ответ.
ты наверное ошибся(лась)
var
a, b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a <> b then
if a > b then
b := a
else
a := b
else
begin
a := 0;
b := 0;
end;
writeln('a = ', a);
writeln('b = ', b);
readln;
end.
<u>По подробнее можно?!</u>
Const
n = 10;
var
x: array[1..n] of integer;
i, k: integer;
begin
Randomize; { иниациализация датчика случайных чисел }
Write('Элементы массива: ');
k := 0; { обнулили счетчик }
for i := 1 to n do { цикл для перебора всех элементов }
begin
x[i] := Random(101); { очередное случайное число в диапазоне [0;100] }
if (x[i] mod 2) = 0 then k := k + 1; { если четное, +1 в счетчик}
Write(x[i]:5)
end;
Writeln;
Writeln('Количество четных чисел в массиве равно ', k)
end.
Тестовое решение:
Элементы массива: 70 19 4 83 79 30 92 97 33 71
Количество четных чисел в массиве равно 4
1) Слева должна быть переменная
Верно A:=5+5
3) не ясно, является переменная C строковой, чтобы можно было осуществить склейку.
4) Если game описано как целое, то верно
5) Можно сделать так:
a:=5;
c:=5;