var a,i,k:integer;
begin
read (a);
for i:=1 to a do
if a mod i = 0 then k:=k+1;
if (a=1) or (k=2) then write ('Да') else write ('Нет')
end.
//Pascal ABC.NET 3.1 сборка 1256
Var
s:string;
se1,se2:set of char;
i:integer;
begin
se1:=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','_'];
se2:=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','_','0','1','2','3','4','5','6','7','8','9'];
readln(s);
if not(lowcase(s[1]) in se1) then
begin
writeln('Не идентификатор');
exit;
end;
for i:=2 to length(s) do
if not(lowcase(s[i]) in se2) then
begin
writeln('Не идентификатор');
exit;
end;
writeln('Идентификатор');
end.
Пример ввода:
_SomeIdentificator
Пример вывода:
Идентификатор