program xxx;
var i, k : integer;
a : array [1..10] of real;
begin
write('введите элементы массива А:');
for i:=1 to 10 do
readln(a[i]);
writeln('исходный массив А:');
for i:=1 to 10 do
write(a[i]);
k:=0;
for i:=1 to 9 do
if a[i]<>a[10] then k:=k+1;
writeln('элементов отдичных от последнего -', k);
readln
end.
1. Добавьте в описание переменных переменную a
2. код будет такой:
var a0, a1, a2, a3, a: longint;
Begin
read(a3, a2, a1, a0);
a:=a0+a1*10+a2*100+a3*1000;
write(a)
End.
Если 500Кб, а не гб, то t=600*2*2=2400 сек
Извини, но уже ничего не поделаешь. Теперь только если ты опять зайдёшь в тот аккаунт. А теперь сам покупай игры.
64=2^i (^ - степень, если что);i = 6 бит - на один символ;7200*8/(4* 40) = 360 бит - каждая строка;Ну и чтобы найти, сколько символов в строке, то нужно 360/6 = 60 символов. Ответ: 60