Объём памяти = 1280*1024*32 = 41943040 бит
41943040 бит / 8 = 5242880 байт
5242880 байт / 1024 = 5120 Кбайт
5120 Кбайт / 1024 = 5 Мбайт
16 = 2⁴, поэтому один символ алфавита весит 4 бита.
64 × 4 = 256 бит = 32 байта
Program kek;
Var a, c:integer;
Begin
c:=0;
a:=1;
While a<>0 do begin
Writeln('Вводите целые числа. Когда закончите - введите "0"');
Readln(a);
If (a>0) and (a mod 10 = 1) then do begin
c:=c+a;
end;
End;
Writeln(c);
End.
Вроде так. Нет возможности проверить.
Var
ar:array[1..10] of integer;
k,i,n:integer;
begin
readln(k);
for i:=1 to 10 do
begin;
readln(ar[i]);
if ar[i]>k then n:=n+1;
end;
writeln('Array:');
for i:=1 to 10 do write(ar[i]:4);
writeln;
write('Res:',n);
end.<span> </span>