Надо найти I. i=128. K=500*120. I=K*i=500*120*128=60000*128=7680000 бит=960000байт. Можно было бы представить 128 как 2 в 7 степени, и считать в степенях двойки. но перевод нужен только в байты
Клацаешь на размер шрифта, стираешь и пишешь свой. Профит
PascalABC.net
var
i:integer;
a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(-5,5);
write(a[i]:4);
end;
for i:=1 to 10 do
if a[i]>0 then a[i]:=a[i]+2
else a[i]:=0;
writeln;
writeln('Преобразованный массив:');
for i:=1 to 10 do
write(a[i]:4);
<span>end.</span>
Ответ:var
a,b,c,max:integer;
begin
writeln('Введите возраст призеров:');
readln(a,b,c);
if (a < b) and (a < c) then
begin
max := a;
writeln('Самый младший - первый призер, ему ',max,' лет.');
end;
if (b < a) and (b < c) then
begin
max := b;
writeln('Самый младший - второй призер, ему ',max,' лет.');
end;
if (c < a) and (c < b) then
begin
max := c;
writeln('Самый младший - третий призер, ему ',max,' лет.');
end;
end.
Подробнее - на Znanija.com - znanija.com/task/4680796#readmore
Объяснение: