Кол - во символов в тексте - 150 * 1024 * 8 / 16 = 76800
Кол - во символов на странице - 76800 / 120 = 640
кол - во символов в 1 строке - 640 / 80 = 8
<span>Var
a,i,n,s:integer;
function q (a:integer):integer;
var h,n:integer;
begin
n:=a;
h:=0;
q:=0;
while n>0 do
begin
n:=n div 10;
h:=h+1;
end;
if h = 5 then
begin
n:=a div 10000;
if n=3 then
if a mod 2 = 0 then
q:=1;
end ;
end;
begin
readln(a);
i:=a;
while q(i)<>1 do
begin
writeln('Error');
readln(a);
i:=a;
q(i);
end;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln(s);</span><span> end.</span>
Kjk rtr xt,ehtr z rhenjq f ns ytn
{ Нужно написать программу, выводящую сумму всех двузначных чисел... Помогите, пожалуйста... }
var
S, i: <em>integer</em>;
begin
for i := 10 to 99 do
s += i;
writeln(s);
<span>end.</span>