Комментарии: Решаем задачи Абрамян на Паскале. While21

Автор: я

Mon, 14 Oct 2019 17:46:01 +0000

нет вот так:

var
n,x:integer;
b,c:boolean;
begin
x:=2;
c:=true;
read (n);
if (n=1) or (n=2) then begin b:=true; write (b); exit; end;
write ('на ',x,' ');
  while (x< n) do
  begin
    if n mod x = 0 then  begin b:= true; c:= false; end  else b:=false;
    if (b=false) then writeln ('- не делится нацело') else if (b=true) then writeln ('- делится');
    if (x=n-1) then break;
    x:=x+1;
    write ('на ',x,' ');
  end;
writeln ('ответ:',c,' ');
 if c=true then write ('Число является простым. Делителей кроме 1 и ',n,' не существует')
 else  write ('Число не является простым. Делители кроме 1 и,',n,' существуют')
end.

var

n,x:integer;

b,c:boolean;

begin

x:=2;

c:=true;

read (n);

if (n=1) or (n=2) then begin b:=true; write (b); exit; end;

write ('на ',x,' ');

while (x< n) do

begin

if n mod x = 0 then begin b:= true; c:= false; end else b:=false;

if (b=false) then writeln ('- не делится нацело') else if (b=true) then writeln ('- делится');

if (x=n-1) then break;

x:=x+1;

write ('на ',x,' ');

end;

writeln ('ответ:',c,' ');

if c=true then write ('Число является простым. Делителей кроме 1 и ',n,' не существует')

else write ('Число не является простым. Делители кроме 1 и,',n,' существуют')

end.

Автор: я

Mon, 14 Oct 2019 17:36:28 +0000

не понял глубины предложенного решения. Я так сделал:

var
n,x:integer;
b,c:boolean;
begin
x:=2;
c:=true;
read (n);
if n=1 then begin b:=true; write (b); exit; end;
write ('на ',x,' ');
  while (x<= n) do
  begin
    if n mod x = 0 then  begin b:= true; c:= false; end  else b:=false;
    if (b=false) then writeln ('- не делится нацело') else if (b=true) then writeln ('- делится');
    if (x=n) or (x=n-1) then break;
    x:=x+1;
    write ('на ',x,' ');
  end;
writeln ('ответ:',c,' ');
 if c=true then write ('Число является простым. Делителей кроме 1 и ',n,' не существует')
 else  write ('Число не является простым. Делители кроме 1 и,',n,' существуют')
end.

var

n,x:integer;

b,c:boolean;

begin

x:=2;

c:=true;

read (n);

if n=1 then begin b:=true; write (b); exit; end;

write ('на ',x,' ');

while (x<= n) do

begin

if n mod x = 0 then begin b:= true; c:= false; end else b:=false;

if (b=false) then writeln ('- не делится нацело') else if (b=true) then writeln ('- делится');

if (x=n) or (x=n-1) then break;

x:=x+1;

write ('на ',x,' ');

end;

writeln ('ответ:',c,' ');

if c=true then write ('Число является простым. Делителей кроме 1 и ',n,' не существует')

else write ('Число не является простым. Делители кроме 1 и,',n,' существуют')

end.