<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
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.
1. Команды
2. Контекстное
3.Главное
4. Компьютер.
Вроде так.
Надо что бы при вводе данных выдавалась та или иная машина?
или же обеспечить базу данных на ввод машин и после чего их вывод?