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

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

Иконка предмета
Информатика, 11.03.2019 16:40
Перевести: 543 (в 8 степени) 39 (в 14 степени) сложить: 372 (8 степень) и 536 (8 степень) 875 (9 степень) и 536 (9 степень) 11011 (2 степень) и 1111 (2 степень) ! заранее !
Ответов: 1
Иконка предмета
Информатика, 15.03.2019 08:37
Робот фиксирует количество людей, пользующихся автобусом маршрута №22, идущего мимо площади, на которой идет празднование наурыз. он фиксирует количество выходящих и входящих людей на остановке. роботу подвести итог работы за день. формат входных данных число n – количество автобусов (n < = 100), n пар чисел – число входящих и выходящих человек (от 0 до 50). формат результата два числа - количество людей, приехавших на площадь и количество людей, покинувших площадь на автобусе маршрута №22. входные данные результат работы 4 31 27 9 5 4 7 6 6 12 9
Ответов: 3
Иконка предмета
Информатика, 15.03.2019 11:22
Для какого из перечисленных ниже названий животных ложно высказывание (последняя буква гласная или вторая буква согласная) и третья буква гласная? 1) адакс 2)ехидна 3) енот 4) белка
Ответов: 2
Иконка предмета
Информатика, 17.03.2019 23:30
1. в цехе работает 12 кондитеров. за неделю (5 рабочих дней) они должны выпустить 12000 изделий. вероятность того, что рабочий вышел на работу – 95%. за смену кондитер изготавливает от 150 до 350 изделий. выполнит ли цех план? 2. группа из 20 студентов во время сессии пять экзаменов. для каждого студента вероятность сдать тот или иной экзамен составляет 90%. определить количество успевающих и неуспевающих студентов. 3. в автоколонне 25 автобусов. автобус находится в ремонте с вероятностью 4%. за смену автобус может сделать от 8 до 10 рейсов. за рейс перевозится от 30 до 120 пассажиров. какова выручка автоколонны, если известно, что льготники, составляющие 20% пассажиров, платят по 20 тенге, а остальные – по 30 тенге?
Ответов: 1
Иконка предмета
Информатика, 21.03.2019 11:54
Даны: натуральное число а, натуральное число n. вычислить: p=a(a+1) … (a+n-1).
Ответов: 3
Иконка предмета
Информатика, 03.04.2019 18:40
Рассчитать объем памяти, необходимый для хранения следующих чисел: а) 5,124457729; б) 2461121,58 с одинарной и двойной точностью рассчитать объем памяти, необходимый для хранения следующих чисел: а) 8410; б) 12410; в)3358; г) 1aа16.
Ответов: 3
Иконка предмета
Информатика, 05.04.2019 11:46
определите значеиие переменной k после выполнения следующего фрагмента программы
Ответов: 2
Иконка предмета
Информатика, 10.04.2019 13:32
Вводятся целые числа до тех пор пока не будет введен 0. определить сколько среди них четных и нечетных чисел. напишите программу используя цикл-пока(с предусловием): while do (ниже прикреплено фото с этой же программой но на основе цикла-до(repeat))
Ответов: 2
Иконка предмета
Информатика, 12.04.2019 23:05
Определить сумму элементов попадавших в интервал от 2 до 5.(массивы в scilab)
Ответов: 1
Иконка предмета
Информатика, 17.04.2019 11:12
Написать программу на языке паскаль
Ответов: 1
Иконка предмета
Информатика, 26.04.2019 12:13
Написать полностью программу решения следующей : найти наименьшие элементы для матриц a(8,6), x(7,9) и номера строк тех столбцов, в которых они расположены. использовать подпрограмму
Ответов: 2
Иконка предмета
Информатика, 01.05.2019 15:27
Составить программу и блок схему (pascal). найти сумму от 1 до р кратное 3
Ответов: 2

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

Категория
Литература, 08.06.2019 12:20
Категория
Українська література, 08.06.2019 12:20
Категория
Английский язык, 08.06.2019 12:20
Категория
Алгебра, 08.06.2019 12:20
Категория
Биология, 08.06.2019 12:20
Популярные вопросы
Вопросов на сайте: 18143150