№1. Вывод всех делителей натурального числа а.
uses crt;
var a, n: integer;
begin
writeln (′Введите целое положительное число′); readln(a);
writeln (′Делители :′);
n:=1;
while ( n <= a/2 ) do begin
if a mod n = 0 then
writeln(n);
inc(n); {n увеличивается на 1}
end;
writeln (a)
end.
№ 2. Вывести все двузначные числа, которые делятся
на сумму своих цифр, и количество таких чисел.
uses crt;
var a, s,k : integer;
begin
for a:=10 to 99 do
begin
s:= (a mod 10) + (a div 10) ;
if a mod s = 0 then begin
writeln(a);
k:=k+1;
end;
end;
write (′k=′,k);
end.
№ 3. Вывести все 3-хзначные числа, сумма цифр которых равна заданному числу m≤27.
uses crt;
var i,a,b,c,m,k : integer;
begin
write (Введите m<=27 );
readln(m);
k:=0;
if m in [1..27] then
for i:=100 to 1000 do
begin
a:=(i div 100);
c:=(i mod 10);
b:=((i-a*100-c) div 10);
if a+b+c=m then
begin
write (a,b,c, );
if (k=9) then begin writeln;
k:=-1;
end;
k:=k+1;
end;
end;
end.