Вопрос по информатике:
Вывести на экран все четырехзначные числа в которых все числа четные паскаль
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.07.2017 04:46
- Информатика
- remove_red_eye 12882
- thumb_up 9
Ответы и объяснения 1
Может, все ЦИФРЫ чётные? Тогда смысл понятен. Будем считать это правильным условием. Тогда:
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. //конец программы
- 14.07.2017 06:09
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.