Урок 11 Задача 1

Primary tabs

Submitted by kuznmax on Sat, 03/04/2023 - 16:06

Forums:

Урок 11 Задача 1

Пользователь вводит целое число N, большее 8.
Выведите на экран последовательность четных числел от 8 до N,
Например:
для N=21:

8 10 12 14 16 18 20
Напр. для N=22:

8 10 12 14 16 18 20 22

var a, b, n: integer;

begin

  writeln('введите число N больше 8');
  readln(n);

  a := 8;
  while(a <= n) do
  begin
    b:=1;
   while b<=2 do
    begin
      if (a <= n) then
        write(a, ' ');
       a := a + 2 ;
    end;
  end;

  readln();
end.
  • Log in to post comments
  • 1059 reads
vedro-compota's picture

vedro-compota

Sat, 03/04/2023 - 18:53

проверить форматирование

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

vedro-compota's picture

vedro-compota

Sun, 03/05/2023 - 13:14

1) определить какой из циклов "бесконечный" и попытаться это исправить
2) вложенные циклы тут не нужны

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

kuznmax

Sat, 03/11/2023 - 15:35 

var n, a: integer;
begin
  writeln('введите число N больше 8');
  readln(n);
  a := 8;
  while (a <= n) do
   begin
      if (a <= n) then
        write(a, ' ');
       a := a + 2 ;
    end;

  readln;
  end.