Как написать программу в паскаль чтобы выводила только четные числа

Содержание

Выведите все целые четные числа, принадлежащие интервалу [a, b] в убывающем порядке.

Входные данные

Два целых числа a и b (a < b).

Выходные данные

Выведите в одной строке все четные целые числа из интервала [a, b] в убывающем порядке.

Решение

var a, b:int64; begin read(a, b); if b mod 2 > 0 then b := b — 1; while (b >= a) do begin write(b, ‘ ‘); b := b — 2; end; end.

Источник: programm.top

Вывести все четные числа от 0 до N — Pascal ABC

1.Цикл с параметром FOR… TO… . 2.Условный оператор IF… THEN… . 3.Вывести все четные числа от 0 до N.

Код к задаче: «Вывести все четные числа от 0 до N»

Листинг программы

var i,n:integer; begin read(n); for i:=0 to n do if odd(i) then write(i,’ ‘) end.

9 голосов , оценка 4.333 из 5

Похожие ответы

Найти все автоморфные числа на отрезке [a, b]
Вывести из файла все числа, кратных 3 и 9
Вывести все простые числа, оканчивающиеся на 1
Вывести все целые числа из диапазона от А до В, кратные 3
Дано целое число. Вывести на экран значение самой младшей его цифры
Вывести пять строк разной длины из разных цифр
Определить, совпадают ли в числе вторая и последняя цифры
Одномерные массивы (Векторы). PascalAbc. Вывести сумму элементов, значения которых находятся в диапазоне
Заменить все минимальные элементы на противоположные через процедуру
Возведение числа в степень с пределом
Определить сумму всех элементов двумерной матрицы и переставить строки