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

Автор: Полина

Полина — Thu, 26 Oct 2017 14:24:40 +0000

как решить эту задачу в Phyton?

Автор: Anton

Anton — Sat, 29 Oct 2016 13:49:39 +0000

Спасибо за настойчивость )
Добавил решение в шапку….
наталкнуло ещё на одно решение:

program While22;

var
   N, Count : Integer;

begin
   write('N: ');
   readln(N);
   Count := 2;
   while ((Count < = round(N / 2)+1) and ((N mod Count)>0)) do inc(Count);

   writeln(Count>round(N/2));
end.

program While22;

var

N, Count : Integer;

begin

write('N: ');

readln(N);

Count := 2;

while ((Count < = round(N / 2)+1) and ((N mod Count)>0)) do inc(Count);

writeln(Count>round(N/2));

end.

Автор: Newton

Newton — Sat, 29 Oct 2016 09:02:02 +0000

Все равно не удалось вставить полностью.. Условие:

while (Test {меньше или равно} round(Number {деление} 2)) and Prime do
begin
            Prime := (Number mod Test) {больше} 0;
            Test := Test + 1;
end;

while (Test {меньше или равно} round(Number {деление} 2)) and Prime do

begin

Prime := (Number mod Test) {больше} 0;

Test := Test + 1;

end;

Автор: Newton

Newton — Sat, 29 Oct 2016 08:57:39 +0000

Спасибо за подсказку. Еще одна попытка:

program While22;

var
   Number, Test : Integer;
   Prime : Boolean;

begin
   write('Введите число: ');
   readln(Number);
   begin
      Prime := True;
      Test := 2;
      while (Test  0;
            Test := Test + 1;
         end;
   end;
   writeln(Prime);   
end.

program While22;

var

Number, Test : Integer;

Prime : Boolean;

begin

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

readln(Number);

begin

Prime := True;

Test := 2;

while (Test 0;

Test := Test + 1;

end;

writeln(Prime);

end.

Автор: Anton

Anton — Sat, 29 Oct 2016 02:43:18 +0000

В ответ на Newton. К сожалению не смогу точно восстановить условие, а оно самое главное в этом решении. Похоже оно попало между символами "< " ">" сделайте пожалуйста ещё одну попытку... только расположите код между тегами < p r e > код программы < / p r e >, теги писать без пробелов.

Автор: Newton

Newton — Fri, 28 Oct 2016 21:36:08 +0000

В ответ на Newton. Форматирование сползло и пропали некоторые символы(( Еще одна попыка, только основное условие: while (Test 0; Test := Test + 1; end;

Автор: Newton

Newton — Fri, 28 Oct 2016 21:27:39 +0000

program While22;

var
   Number, Test : Integer;
   Prime : Boolean;

begin
   write('Введите число: ');
   readln(Number);
   begin
      Prime := True;
      Test := 2;
      while (Test < = round(Number / 2)) and Prime do
         begin
            Prime := (Number mod Test) > 0;
            Test := Test + 1;
         end;
   end;
   writeln(Prime);   
end.

program While22;

var

Number, Test : Integer;

Prime : Boolean;

begin

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

readln(Number);

begin

Prime := True;

Test := 2;

while (Test < = round(Number / 2)) and Prime do

begin

Prime := (Number mod Test) > 0;

Test := Test + 1;

end;

writeln(Prime);

end.