var
i, k: integer;
begin
i:= 100;
k:= 0;
while i < 1000 do
begin
if (i * 2 mod 10 = 8) and (i * 3 mod 10 = 4) then write(i, ' ')
else k:= k + 1;
i:= i + 1;
end;
if k = 900 then writeln('Таких чисел не существует!');end.
В предложении 69 символов.
16 бит = 2 байта
I=69*2=138 байт
Ответ: 138 байт
<em>Из мобильного приложения приведенная ниже формула не будет видна, смотреть в браузере!!!</em>var
i:integer;
x,p:real;
begin
Write('x='); Read(x);
p:=1;
for i:=1 to 32 do p:=p*(1+1/(x-2*i));
Writeln('P=',p)
end.
<u>Пример</u>x=1.36
P=-0.0783922330060185
Program programName;
var x,y: real;
begin
writeln('Введите объем свободного пространства на жестком диске(Gb)');
readln(x);
y:=x/((350*35*55*2)/1073741824);
writeln('В свободное пространство размером ' x 'Gb вместится ' y:0:0 ' книг');
end.
Не проверял, но должно работать. Может возникнуть ошибка из-за русских символов, но тут уже сам.