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

kaanekiken    2   15.09.2019 21:20    0