Задача 1 Урок 11
Primary tabs
1.Решите с помощью цикла while:Пользователь вводит целое число N, большее 8.Выведите на экран последовательность четных чисел от 8 до N,
Например:
для N=21:
8 10 12 14 16 18 20
для N=22:
8 10 12 14 16 18 20 22
var n, a: integer; begin writeln('vvedite chislo n bolshe 8'); readln(n); a := 8; while (a <= n) do begin if (a <= n) then write(a, ' '); a := a + 2 ; end; readln; end. Вывод консоли: vvedite chislo n bolshe 8 30 8 10 12 14 16 18 20 22 24 26 28 30
- Log in to post comments
- 47 reads