Program Egor_Sasha;var num_Eg, num_Sash,pri,pri1: real;var mes_Eg,mes_Sash: real;beginwriteln('Numer Egora');readln(num_Eg);writeln('Numer Sashi');readln(num_Sash);writeln('Mesto Egora (verkh=1,vniz=0)');readln(mes_Eg);writeln('Mesto Sashi (verkh=1,vniz=0)');readln(mes_Sash);pri:=num_Sash+1;pri1:=num_Eg+1;if num_Eg=pri then writeln('YES') else writeln('NO');if num_Sash=pri1 then writeln('YES') else writeln('NO');if mes_Eg=1 then writeln('Egor-HIGH')else writeln('Egor-LOW');if mes_Sash=1 then writeln('Sasha-HIGH')else writeln('Sasha-LOW');end.
Может быть это? <span>pascal: </span>
<span>var a: array [1..20] of integer; </span>
<span>i, k: integer; </span>
<span>s: real; </span>
<span>begin </span>
<span>// заполняем массив c клавиатуры </span>
<span>for i:=1 to 20 do </span>
<span>readln(ar); </span>
<span>//считаем среднеариф-е </span>
<span>s := 0; </span>
<span>k := 0; </span>
<span>for i:=1 to 20 do </span>
<span>if a >=0 then begin </span>
<span>s := s + a; </span>
<span>k := k + 1; </span>
<span>end; </span>
<span>writeln('среднее: ', s/k); </span>
<span>end.</span>
Программа на паскале
var i,s:integer;
begin
s:=0;
for i:=15 to 50 do s:=s+i;
writeln('s = ',s);
end.
Результат:
s = 1170
1)
х - то что ищем.
16*х/8 - х = 8000
2х - х = 8000
х = 8000 бит
2)
х - то что ищем.
16х бит = 2Мбайт
16х бит = 2*1024*1024*8 бит = 16 777 216 бит
х = 16 777 216 бит / 16 бит = 1 048 576 символов
3)
10*1024*8/8/32/40 = 8 бит на символ
2^8 = 256 символов в алфавите