Var i,s,a:integer;
Begin
a:=1;
for i:=10 to 99 do
Begin
s:=i mod 10+ i div 10;
if s=8 then a:=a*i;
end;
writeln (a);
<span>end.</span>
На локальном диске (:С) или на флешке ,или на диске.
Во внешней папяти
Нет 1 байт 8 битов а 2 это уже 16
0,5 Кбайт = 1024 / 2 = 512 байт
512 байт = 512 * 8 = 4096 бит
4096 / 1024 = 4 бита
Один символ - 4 бита.
Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.