урок 13.1 задача 15

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Wed, 07/06/2022 - 11:56

Forums:

урок 13.1

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат

:program Project1;
var
i,j:integer;
begin
  writeln('ведите целое число');
  readln(i);
  if (i=8) or (i>8) or ((i mod 2 )=0) then
    for j:=1 to i do
      writeln(j);
  readln();
end.
  • Log in to post comments
  • 3245 reads
vedro-compota's picture

vedro-compota

Mon, 07/25/2022 - 20:19

1) сообщения об ошибке тут нет

2)

(i=8) or (i>8)

-- можно записать короче

_____________
матфак вгу и остальная классика =)

isaac_fan's picture

isaac_fan

Tue, 08/02/2022 - 13:52 

:program Project1;
var
i,j:integer;
begin
  writeln('ведите целое число');
  readln(i);
  if (i>=8) or ((i mod 2 )=0) then
    for j:=1 to i do
      writeln(j);
  else 
  writeln('ошибка 404'):
  readln();
end.
isaac_fan's picture

isaac_fan

Tue, 08/09/2022 - 17:37 

var
i,j,a:integer;

begin
  writeln('ведите число ');
  readln(i);
  a:=8;
  while (a<=i) do
   a:= 1;
     while (a<=2) do
     a:=a+1;
    begin
      if (a<=i) then
        write(a,' ');
      a:=a +2;
    end;
    if (a <= i) then
      write(3,' ');





  end;
  readln();


end.;
vedro-compota's picture

vedro-compota

Tue, 08/23/2022 - 20:06

вообще не запускается

  • + проверить вывод
  • + проверить что телом внутреннего цикла
  • + убрать лишние пустые строки
  • вывести сообщение об ошибке - в случае если введенное пользователем число не соответствует требованиям задачи
  •   a:=8;
  while (a<=i) do
   a:= 1;

    -- есть лишнее присваивание

  • Убрать неиспользуемые переменные

_____________
матфак вгу и остальная классика =)

isaac_fan's picture

isaac_fan

Tue, 08/09/2022 - 17:34 

var
i,j,a:integer;

begin
  writeln('ведите число ');
  readln(i);
  a:=8;
  while (a<=i) do
  begin
    for i:=1 to 1 do
    begin
      if (a<=i) then
        write(a,' ');
      a:=a +2;
    end;
    if (a <= i) then
      write(3,' ');





  end;
  readln();


end.
vedro-compota's picture

vedro-compota

Tue, 08/23/2022 - 19:58

ничего не выводит, проверить

_____________
матфак вгу и остальная классика =)

isaac_fan's picture

isaac_fan

Mon, 08/29/2022 - 21:16 

var
i,j,a:integer;

begin
  writeln('ведите число ');
  readln(i);
  if (8<=i) then
  begin
     while (a<=2) do
     a:=a+1;
    begin
      if (a<=i) then
        write(a,' ');
      a:=a +2;
    end;
    if (a <= i) then
      write(3,' ');

  end;
  else
    writeln('eror404');
  readln();


end.;