Var i,p:integer; beginp:=1;for i:= 20 to 50 doif(i mod 5 = 0) then p:=p*i;writeln('Произведение чисел кратных 5: 'p);end.
Var a:array[1..10] of Integer ;
b,i,k,f:integer;
Begin
WriteLn('Исходный массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
end;
For k:=1 to 9 do
begin
For i:= 1 to 9 do
begin
if a[i]< a[i+1] then
begin
b:=a[i];
a[i] := a[i+1];
a[i+1]:=b;
end;
end;
end;
WriteLn;
WriteLn('Итоговый массив');
For i:= 1 to 10 do
Write(a[i]:3);
end.
Смотря какая целочисленная переменная предпологается, их много разновидностей и и у каждой свой размер. (Пример для переменных из PascalABC в приложении)
Например целочисленная переменная типа word идеально подходит, займет 2 байта
Но более обычно для хранения целочисленных используется integer (Int32) которая занимает 4 байта
Переменные вещественых чисел обычно занимают больше места чем переменные целых, так что этот вариант рассматривать не будем
Строковая. В данном случае 500 занимает 3 символа. Чтобы узнать размер данных нужно знать в какой кодировке предпологается хранение. Стандартно сейчас используются 8битные и 16 битные кодировки, но существуют и другие.
3 * 8 бит = 3 * 1 байт = 3 байта
Вообще целые числа лучше хранить в целочисленных переменных, они под них оптимизированны, потому я за вариант 2
Кнопка Ж делает текст жирным