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.
Var x,y,i:integer;
begin
writeln('x':3,'y':5);
for i:=1 to 7 do
begin
x:=random(-4,7);
y:=x*x+1;
writeln(x:3,y:5);
end;
<span>end.</span>
Var day:integer; begin writeln('Введите номер дня недели(1-7):'); readln(day); case day of 1:writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье'); else writeln('Неверно введён день недели!'); end;end.
Шумовое загрязнение, влияние компьютера на человека.
Первое сообщение
32=2 в степени 5 => 80*5=400 бит
Второе сообщение 64=2 в степени 6 => 70*6=420 бит
400 < 420.
Во втором сообщении информации больше