Var n,i,s:integer;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do
if i mod 2 =0 then s:=s-i else s:=s+i;
writeln('s = ',s);
end.
Пример:
n = 10
s = -5
вес одного символа не написали.
если кодировка ASCII 1 байт
если кодировка UNICODE 2 байта
1 мб = 1024 кб
1кб = 1024 байта
1 мб = 1024*1024=1048576 байт
1 страница 60*65 = 3900 байт
1048576/3900 = 268.86 страниц для кодировки ASCII или 268.86/2=134.43 в UNICODE
Ответ: 268 страниц в ASCII или 134 страницы в Unicode
Var a:string;
begin
readln(a);
if length(a)=1 then a:=a+' ';
if a[2]<>' ' then delete(a,2,1) else writeln('Такого нет');
readln;
<span>end.</span>
увеличени тактовой частоты;
расширение методов параллельной обработки данных;
повышение тактовой частоты шины данных
В опросе участвовало 353 человека.