Question

Дано натуральное число n. Определить является ли оно простым или составным. Простым называется число, которое не имеет делителей кроме 1 и самого себя. Например, 17 и 43 - простые числа.Для решения задачи приведена программа с пропущенными строками. Необходимо в ответе записать содержание пустых строк, которое сделает программу правильной. Количество и расположение строк не менять.
Program Task;
Uses CRT;
Var n,i:integer;
        b:boolean;
Begin
repeat
write('Число='); readln(n);
until n>0;
b:=true;
пропущена строка надо чтото записать
repeat
снова пропущена строка и надо что то записать
i:=i+1
снова пропущена строка и надо что то записать
if (b) then writeln('Простое') else writeln('Составное');readlnEnd.
Помогите плиз ато я в паскале вообще ноль вот только только начал изучать!

Answer 1

Я бы так написал:
var n,i:longint;
     b:boolean;
begin
  repeat
    write ('Число = ');
    readln(n);
  until n > 0;
  b:=false;
  for i:=2 to n div 2 do
   if n mod i = 0 then
    begin
      b:=true;
      break;
    end;
  if (not b) and (n <> 1) then writeln ('Простое') else writeln ('Составное');
  readln;
end.