Число 0,0404 к нормализованному виду в 10сс:

var s,i,n,m : longint;

begin

  readln(m,n);

  if m> n then

  begin

      s: =m;

      m: =n;

      n: =s

  end;

  s: =0;

  for i: = m to n do if i mod 12=0 then s: =s+i;

  writeln(s);

end.

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.

скорее всего так

на си(с++)

#include< iostream.h>

void main(){

int a;

int x;

cin> > x; //число на которое должно закончитьс

cin> > a; //число которое вводишь

int b,c,d;

b=a%1000; //остаток от деления на 1000

d=b%100; //остаток от остатка деления на 100 

c=d%10; //само число

if (c==x) cout< < "верно"; else cout< < "не верно";

}

если на паскале тольок вместо % ставите mod и вместо cout write

и в скобках а так в принципе все