var n,i:integer;
Begin
read(n);
for i:= 2 to n-1 do
if n mod i = 0 then writeln('No');
End.
var n,i:integer;
s:string;
Begin
read(s);
for i:= 1 to length(s) do
if s[i]="a" then n:=n+1;
writeln(n);
End.
1)var k,n,a:integer;
begin
readln(k,n);
for a:=1 to n do
writeln(k);
end.
2)var a:integer;
begin
for a:=10 to 99 do
if (a mod 4=0) and (a mod 6<>0) then writeln(a);
end.
1)http://s.idkn.ru/images/original/7/209408/5510467fe8b70e21098ba08c.jpg
Кукушка кукушонку сшила капюшон
2)пв вжф к ухёв пжф
3)комета
4)?
5)?
Вот решение подобной задачи на языке паскаль.
Program abc;
var b,c : string;begina:=0;Readln(b);while a<3 dobeginReadln(c);If c=b then beginWriteln('доступ резрешен');endelse begina:=a+1;; end;end;Writeln('вы не угадали');end.
Размер алфавита = 26+10 = 36 символов, ближайшая степень двойки, которая больше или равна 36 - 6 (2^6=64), значит, каждый символ кодируется 6 битами. 180*6=1080 бит.