program summation;
var i, summa: Word;
begin
summa := 0;
for i := 1 to 10 do
summa := summa + i;
WriteLn('l + 2 + .+ 10 = ', summa);
end.
<span>Почему вы не хотите воспользоваться онлайн шифровщиком ?
Вот и ответ : рцяешцст</span>
Количество информации в одном символе = log(2)32=5 бит
230 байт = 230*8 бит
Количество символов в сообщении = (230*8)/5 = 368
< первое больше
> меньше
>меньше
>меньше
На 4:
var i,x,oc:integer;s:real;
begin
readln(x);
s:=0;
for i:=1 to x do
begin
oc:=random(5)+1;
s:=s+oc;
end;
writeln(s/x);
end.
На 5:
var i,s,ch,min:integer;
begin
s:=3;
for i:=3 to 30 do
begin
s:=s+2;
end;
ch:=s div 60;
min:=s-ch*60;
writeln('Часов ',ch,' минут ',min);
end.