Запиши запрос (база данных MS Access): записи, в которых названия стран заканчиваются на "сия".

var t: integer;

begin

  read(t);

  while t > 6 do

      t: =t-6;

  case t of

      0..2: write('green');

      3: write('yellow');

      4..6: write('red');

  end;

end.

# include < stdio.h> int phi(int x){int i,k=0; if(x> 1)k+=phi(x-1)+phi(x-2); if(x< 2)k=x; return k; }      int main (void){int x; scanf("%d",& x); printf("%d",phi(x)); return 0; }

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

всего длина окружности составляет 2пr, а половина - пr