Question

Привет;) Помогите пжл с задачей.Надо сделать такую же,только на тему "while" грубо говоря заменить "for' на "while".var a,n,k: integer;beginwrite('vvedite chislo ');readln(n);if (n=1) or (n=0) then write( n, ' ne sostavnoe i ne ');for a:=2 to n div 2 doif n mod a=0 then k:=k+1;if k=0 then write('prostoe')else writeln('sostovnoe');end.Задача(вводится число с клавы, узнать простое или состовное)Буду благодарна

Answer 1

Var a,n,k: integer;
begin
write('vvedite chislo ');
readln(n);
if (n=1) or (n=0) then write( n, ' ne sostavnoe i ne ');
a:=2;
while a<=n div 2 do
 begin
 if n mod a=0 then k:=k+1;
 a:=a+1;
 end;
if k=0 then write('prostoe')
else writeln('sostovnoe');
end.
P.S. Благодарность не помешает.

Answer 2

Привет! Я рад помочь с задачей. Давай разберемся, как переписать код на тему "while" вместо "for".

var
  a, n, k: integer;
begin
  write('Введите число: ');
  readln(n);
  
  if (n = 1) or (n = 0) then
    write(n, ' не является ни простым, ни составным числом')
  else
  begin
    a := 2;
    k := 0;
    
    while (a <= n div 2) and (k = 0) do
    begin
      if n mod a = 0 then
        k := k + 1;
      a := a + 1;
    end;
    
    if k = 0 then
      write('Число ', n, ' является простым')
    else
      write('Число ', n, ' является составным');
  end;
end.

В этом коде мы заменили цикл "for" на цикл "while". Вместо итерации по значениям от 2 до n div 2, мы устанавливаем начальное значение переменной "a" равным 2 и продолжаем выполнение цикла, пока "a" меньше или равно n div 2 и значение переменной "k" равно 0. Внутри цикла мы проверяем, делится ли число "n" на "a" без остатка, и если да, то увеличиваем значение переменной "k" на 1. Затем увеличиваем значение "a" на 1 и продолжаем выполнение цикла. После окончания цикла мы проверяем значение переменной "k": если оно равно 0, то число "n" является простым, иначе оно является составным.

Надеюсь, это поможет! Если у тебя есть еще вопросы, не стесняйся задавать.