Плиз помогите с информатикой( в башке заело) ( здесь нужно использовать циклы for while...

Question

Плиз помогите с информатикой( в башке заело) ( здесь нужно использовать циклы for while или repeat);заранее спасибо)

1)Натуральное число n называется простым если оно делится только на 1 и на само себя.по соглашению 1 не считают простым числом. Проверить является ли n простым числом

2)Найдите и выведите на экран все трехзначные числа кратные 3, сумма цифр которых больше суммы цифр частного от деления их на 3

Answer 1

1. var a,i,x,k,y,z,b,c:integer;
begin
writeln ('Введи число');
readln (a);
for i:=2 to a do
if a mod i =0 then k:=k+1;
if k=1 then writeln ('число простое')
else writeln ('Число составное');
readln;
end.

2.var a,i,k,x:integer;
begin
for i:=100 to 999 do
if i mod 3=0 then
begin
a:=i mod 10 + i div 10 mod 10 + i div 100 mod 10;
k:=i div 3;
while k>0 do begin
x:=k mod 10 + x;
k:=k div 10;
end;
if a>x then write (i,' ');
a:=0;
x:=0;
end;
readln;
end.