сервис вопросов и ответоввывести на экран все четырехзначные числа в которых все числа четные паскаль
5-9 класс|
|
Lena221001
07 апр. 2017 г., 1:25:31 (7 лет назад)
Danilakuchmist
07 апр. 2017 г., 3:44:10 (7 лет назад)
Может, все ЦИФРЫ чётные? Тогда смысл понятен. Будем считать это правильным условием. Тогда:
program Chisla;
var
i,a,b,c,d:integer;
BEGIN
for i:=1000 to 9999 do
begin
a:=i div 1000;
if a mod 2=1 then continue; //если первая цифра нечетная, переход на следующий виток цикла
b:=(i div 100) mod 10;
if b mod 2=1 then continue; //если вторая цифра нечетная, переход на следующий виток цикла
c:=(i mod 100) div 10;
if c mod 2=1 then continue; //если третья цифра нечетная, переход на следующий виток цикла
d:=i mod 10;
if d mod 2=1 then continue //если четвертая цифра нечетная, переход на следующий виток цикла
else writeln(i); //иначе все цифры четные - выводим число i на экран
end; //конец витка цикла
END. //конец программы
Ответить
Другие вопросы из категории
Имеются пять карточек, на которых записана одна из букв: А, Б, Е, Ж, И. Надо составить последовательность из k карточек, соблюдая правила:
1) любая последовательность начинается буквой А;
2) после гласной буквы не может снова идти гласная, а после согласной – согласная;
3) буквы в последовательности не должны повторяться.
В ответе укажите через пробел 3 числа - сколько последовательностей, удовлетворяющих правилам можно составить из 3-х, 4-х и 5-и карточек соответственно.
Помогите ответить на вопросы. 1) Какой алфавит используют в программировании? 2)Как называется главный путеводитель в тексте? 3) Со
ставьте слово из этих букв и цифр:
М Р Л
Г 1 Т
И А О
59,В в 16 сс перевести в 2 сс, 8 сс, 10 сс.
223,5 в 8 сс перевести в 2 сс, 10 сс, 16 сс.
модели
биологические:
исторические:
социологические:
математические:
напишите примеры
Читайте также
Срочно! Решение задачи должно выглядить на информационном языке турбо паскаля: Вывести на экран все четырехзначные числа, в записи которых нет
одинаковых цифр!
Дан массив из N элементов(12 элементов), заданный случайным образом от -10 до 10. Вывести на экран этот массив. С клавиатуры вводятся два числа меньше N.
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
2. Определить, делится ли введенное число "а" на 3. Если делится то вывести на экран "Число делится на 3".Тип переменной определить самостоятельно. При
составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
1.Составьте программу, выводящую на экран все двухзначные числа, у которых сумма цифр равна 8.
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!
Вы находитесь на странице вопроса "вывести на экран все четырехзначные числа в которых все числа четные паскаль", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.