1)Когда былина переходит из уст в уста, она упрощается
2)Когда человек человек умирает, не рассказав другому важную тайну, информация разрушается
Интересная задачка)
var i,n :integer;
begin
n:=99;
<span> for i:=1 to n do begin
case i of
11..14 :writeln('мне ',i,' лет');
</span> else <span>
case i mod 10 of
</span>1:writeln('мне ',i,' год');
<span> 2..4:writeln('мне ',i,' года');
else
writeln('мне ',i,' лет');
end;
end;
<span> end;
</span></span>end.
Var rost :array[1..100] of integer;
n, i, k: integer;
begin
writeln('Введите общее количество участников');
readln(n);
for i:=1 to n do
read(rost[i]);
for i:=1 to n do
if (rost[i] >=180) then Inc(k);
writeln(k);
<span>end.
Пример входных данных
3
179 180 194<span>
Выходные данные
2</span></span>
Если размер символа увеличился в двое, то общий размер сообщения также стал в двое больше. Значит изначально он занимал 1 МБ. 1024*1024=1048576 символов
Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.