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

урок 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.
                  
vedro-compota's picture

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

2)

(i=8) or (i>8)

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

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

isaac_fan's picture

: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

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

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

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

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

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

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

isaac_fan's picture

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

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

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

isaac_fan's picture

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.;