Вот для разрядности есть
program c5;
uses crt;
var a,b,d:integer;
ch,chtmp,ch_e,ch_h:integer;
col,z,k,u:integer;
c:boolean;
begin
clrscr;
write('Vvedite chislo (0-32768):');
readln(ch);
chtmp:=ch;
col:=0;
for a:=0 to 9 do
begin
ch:=chtmp;
ch_h:=0;
ch_e:=0;
b:=1;
b:=10000;
while ch b:=b div 10;
c:=true;
while b>0 do
begin
d:= (ch-ch_h) div b;
ch_e:=ch - ch div b*b;
if a=d then
begin
ch:=ch_h div 10 + ch_e;
inc(col);
break;
end
else
ch_h:=ch div b * b;
b:=b div 10;
end;
end;
writeln(col);
end. даже паскаль старый сохранился
Для простых чисел
int n;
// ввести n c клавиатуры
for (i = 2; i
if (n % i == 0) {
// вывести, что n не простое, так как делится на i
return 0;
}
}
// вывесьт что n простое.
return 0;