<span>№1
1)Леска – зашифрованное слово
№2
1)Коа, аок,
2)кан, ака,
3)нос – единственное слово которое имеет одну расшифровку
№3
1)</span>agte, qte<span>
2)</span>tabg, tlg<span>
3)</span>tbag, tug, tbq<span>
4)</span>gate <span>– единственное слово которое имеет одну расшифровку</span>
Мы ежедневно сталкиваемся с информацией, например читая газету, смотря фильм или телевизор, или просто слушая музыку. Книги - тоже информация. Даже благодаря нашему зрению и слуху мы получаем информацию об окружающем нас мире.
var a:array[1..10]of integer;
i,n1,n2:integer;
s:real;
begin
for i:=1 to 10 do begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/10;
for i:=1 to 10 do begin
if a[i]>s then inc(n1);
if a[i]<s then inc(n2);
end;
writeln('bolshe - ',n1,' menshe - ',n2);
end.
Var
i: integer;
d, s: real;
begin
d := 10;
s := d;
for i := 2 to 7 do
begin
d := d * 1.1;
s := s + d;
end;
writeln(s);
end.
Блок-схему не умею. Но эта программа хоть работает и правильно