Вывести все простые трехзначные числа через паскаль program z5; uses crt; var x, i, k : integer; begin for i: =100 to 999 do for x: =1 to i-100 do if i mod x=0 then k: =k+1; if k=2 then writeln('да') else writeln ('нет') end. вот что у меня получилось, что мне еще нужно дописать?
begin
for a := 100 to 999 do
begin
k:=0;
for i:=2 to a div 2 do
if a mod i = 0 then k := k + 1;
if k = 0 then write(a, ' ');
end;
end.