Вывести все простые трехзначные числа через паскаль

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.

Вот что у меня получилось, что мне еще нужно дописать?

Question

Информатика

Оксанка

25 июля, 11:26

Вывести все простые трехзначные числа через паскаль

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.

Вот что у меня получилось, что мне еще нужно дописать?

+1

Ответы (1)

Знаете ответ?

Арменыч · Answer 1

Var i, a, k: integer;

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.