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

Primary tabs

Submitted by alexander263 on Sun, 10/31/2021 - 12:25

Forums:

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

Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:

8 10 3 12 14 3 16 18 3 20 22 3 и т.д.

program Project1;
var n,i,j: integer;

begin
  j:=8;
  write('Vvedite N: '); readln(n);
  if(n<0)then
    write('ERROR!')
  else
    begin
      while(j<n)do
        begin
          for i:=1 to 2 do
          begin
            write(j,' ');
            j:=j+2;
          end;
          write(3,' ');
        end;
    end;
  readln();
end.
  • Log in to post comments
  • 2360 reads
vedro-compota's picture

vedro-compota

Sun, 10/31/2021 - 13:04

уточнить по новому условию (сейчас №15)

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

alexander263

Wed, 11/03/2021 - 18:48

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

8 10 3 12 14 3 16 18 3 20

program Project1;
var n,i,j: integer;

begin
  j:=6;
  write('Vvedite N: '); readln(n);
  if(n<8)then
    write('ERROR!')
  else
    begin
      for i:=1 to n do
        if(i mod 3<>0)then
          begin
            j:=j+2;
            if(j>n)then
              break
            else
              write(j,' ')
          end
        else if(j=n) then
          break
        else
          write(3,' ');
    end;
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 11/03/2021 - 19:21

засчитано

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