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

While21. Дано целое число $$N$$ ($$> 0$$). С помощью операций деления нацело и взятия остатка от деления определить, имеются ли в записи числа $$N$$ нечетные цифры. Если имеются, то вывести True, если нет — вывести False.

Решение:

program While21;
var
  N :Integer;
  checkbox:Boolean;
begin
  Write('Введите число N: ');
  Readln(N);
  checkbox:=False;
  while N>0 do
  begin
   If (N mod 2) <> 0 then checkbox:=True;
   N:=N div 10;
  end;                 
  Writeln(checkbox);
end.

program While21;

var

N :Integer;

checkbox:Boolean;

begin

Write('Введите число N: ');

Readln(N);

checkbox:=False;

while N>0 do

begin

If (N mod 2) <> 0 then checkbox:=True;

N:=N div 10;

end;

Writeln(checkbox);

end.

Другие задачи из раздела While можно посмотреть здесь.

Комментарии 2

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

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.

Ответить

нет вот так:

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.

Ответить

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

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ