Дано натуральное число 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
