Дано натуральное число 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. ато я в паскале вообще ноль вот только только начал изучать!
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.