Урок 13.1 задача 6

Primary tabs

Submitted by alexander263 on Wed, 10/13/2021 - 20:09

Forums:

Урок 13.1 задача 6

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем. 

program project1;
var numb, i:integer;

begin
  numb:=1;
  while(numb>=1)do
    begin
      i:=0;
      write('vvedite chislo: '); readln(numb);
      if(numb<0)then
        writeln('ERROR!');
      while(i<numb)do
        begin
          i:=i+1;
          write(i,' ');
        end;
      writeln();
    end;
  readln();
end.
  • Log in to post comments
  • 2747 reads
vedro-compota's picture

vedro-compota

Wed, 10/13/2021 - 20:42

внешний цикл по условию не нужен

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

alexander263

Sat, 10/16/2021 - 16:49 

program project1;
var numb, i:integer;

begin
  numb:=1;
    i:=0;
    write('vvedite chislo: '); readln(numb);
    if(numb<0)then
      writeln('ERROR!')
    else
      while(i<numb)do
        begin
          i:=i+1;
          write(i,' ');
        end;
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 10/17/2021 - 12:37 

 while(i<numb)do
        begin
          i:=i+1;
          write(i,' ');
        end;

лучше через for

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

alexander263

Wed, 10/20/2021 - 17:47 

program project1;
var numb, i:integer;

begin
    write('vvedite chislo: '); readln(numb);
    if(numb<0)then
      writeln('ERROR!')
    else
      for i:=1 to numb do
        write(i,' ');
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 10/20/2021 - 19:28

решение засчитано

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