Вывести все простые трехзначные числа через паскаль - вопрос №85318235 от 1234567898642 27.03.2023 18:32

Question

Информатика: Вывести все простые трехзначные числа через паскаль 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. вот что у меня получилось, что мне еще нужно дописать?

1234567898642 · Answer

Var i,a,k: integer;beginfor a := 100 to 999 dobegink:=0;for i:=2 to a div 2 doif a mod i = 0 then k := k + 1;if k = 0 then write(a, );end;end....