Срочно! Составить программу вывода всех простых трехзначных чисел используя for to
99б
Ответы на вопрос
Ответил Аноним
0
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
for var i:=100 to 999 do begin
var (flag,j,r):=(True,2,Round(Sqrt(i)));
while flag and (j<=r) do
if i mod j = 0 then flag:=false else j+=1;
if flag then Print(i)
end
end.
Внимание! Если программа не работает, обновите версию!
begin
for var i:=100 to 999 do begin
var (flag,j,r):=(True,2,Round(Sqrt(i)));
while flag and (j<=r) do
if i mod j = 0 then flag:=false else j+=1;
if flag then Print(i)
end
end.
Приложения:
Ответил NocannibalIint
0
Спасибо большое!
Ответил Аноним
0
Пожалуйста
Новые вопросы