Дано натуральное число n. Определить является ли оно простым или составным. Простым называется число, которое не имеет делителей кроме 1 и самого себя. Например, 17 и 43 - простые числа.Для решения задачи приведена программа с ...
Дано натуральное число 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.
Не нашли ответ?
Похожие вопросы