23.05.2020 15:22, мамаеб228

Как соединить 2 вот этих процесса в один ?
1 процесс
uses crt;
var number : integer ;
begin
clrscr;
write('Введите число и нажмите '); readln(number);
if number mod 2 = 0 then
writeln('Число четное')
else writeln('Число не четное');
readln; {чтобы программа не закрывалась}
end.
2 процесс
var n: word;
even, odd: byte;
begin
readln(n);
even := 0;
odd := 0;
while n > 0 do begin
if n mod 2 = 0 then
even := even + 1
else
odd := odd + 1;
n := n div 10;
end;
writeln('четных ', even);
writeln('нечетных ', odd);
end.

Всего ответов: 1

Похожие вопросы:

Иконка предмета
Информатика, 09.03.2019 17:39
Сначала суток секунд (n - целое). найти количество секунд с начала последней минуты. pascal блок построения
Ответов: 1
Иконка предмета
Информатика, 09.03.2019 16:06
Выбери верный ответ. 3.png выровненный по центру, или центрированный, текст располагается так: с обеих сторон каждой строки ширина свободного пространства одинакова. с обеих сторон края абзаца получаются неровными. у текста, выровненного по ширине, левая и правая границы образуют прямые линии. при этом последняя строка абзаца ведёт себя так, как при выравнивании по левому краю. у текста, выровненного по ширине, левая и правая границы образуют кривые линии. выравнивание по длине.
Ответов: 3
Иконка предмета
Информатика, 14.03.2019 12:02
Решите программу для паскаля​
Ответов: 1
Иконка предмета
Информатика, 15.03.2019 19:51
2/1+3/2+4/+1/n на питоне через цикла while
Ответов: 3
Иконка предмета
Информатика, 16.03.2019 23:10
Вывести все трехзначные числа, которые делятся на свою первую цифру ,
Ответов: 3
Иконка предмета
Информатика, 19.03.2019 12:02
1. опишите основные объекты базы данных. без каких объектов не может существовать база данных. дайте полный развернутый ответ.
Ответов: 1
Иконка предмета
Информатика, 25.03.2019 10:15
Сколько страниц будет найдено по запросу москва & (париж | лондон)
Ответов: 3
Иконка предмета
Информатика, 01.04.2019 05:30
Внекотором текстовом редакторе используется только шрифт times new roman ,для которого может быть установлен один из двух размеров. кроме того имеются три кнопки, позволяющие установить полужирное, курсивное и подчеркнутое начертание символов. сколько существует различных вариантов форматирования слова "текст"?
Ответов: 3
Иконка предмета
Информатика, 03.04.2019 21:03
6. сортировка кубиков ваня придумал новый алгоритм сортировки и сейчас тренируется на кубиках с цифрами, чтобы понять, как он работает. перед ним на столе лежат кубики с числами от 1 до 10 (на каждом кубике записано одно число), выложенные в таком порядке: 8 9 10 4 5 6 1 7 2 3 за одну операцию ваня берет несколько рядом стоящих кубиков как одну конструкцию, переворачивает и кладет на прежнее место. например, если бы кубики лежали в таком порядке: 1 2 3 4 5 6 7 8 9 10, а ваня взял бы кубики начиная с кубика с цифрой 4 и заканчивая кубиком с цифрой 9 и перевернул бы, то получилась бы такая последовательность: 1 2 3 9 8 7 6 5 4 10. то, что какие-то кубики после выполнения подобных операций окажутся лежащими вверх ногами, ваню не смущает. кроме того, ваня различает кубик с цифрой 6 и кубик с цифрой 9 (они разного цвета, поэтому невозможно одну цифру получить из другой при перевороте). ване понять, какое наименьшее количество таких операций потребуется, чтобы кубики стали лежать в порядке возрастания: 1 2 3 4 5 6 7 8 9 10. комментарий. если бы у него было всего 4 кубика и они лежали в таком порядке: 4 1 3 2, то наименьшее количество операций было бы равно двум: сначала переворачиваем кусок из первых двух кубиков слева, получаем 1 4 3 2, затем переворачиваем кусок из трех кубиков справа, получаем 1 2 3 4.
Ответов: 1
Иконка предмета
Информатика, 04.04.2019 14:54
Вывести на экран количество вводимых пользователем чисел. вычисления остановить, когда пользователь введет 0. учесть в подсчете и введенный 0.
Ответов: 1
Иконка предмета
Информатика, 11.04.2019 07:47
Люди добрые ! нужно написать либо на языке питон или хтмл
Ответов: 3
Иконка предмета
Информатика, 13.04.2019 06:40
Определить, находится ли точка m(x1,y1) на прямой y=k*x+b если что это информатика.
Ответов: 3

Вопросы по другим предметам:

Категория
Математика, 24.01.2021 14:58
Категория
География, 24.01.2021 14:59
Вопросов на сайте: 17858631