1. Информатика
  2. Написать программу на

Написать программу на языке Pascal Задано произвольное число. Проверить является ли оно нечетным.

snowpanzer snowpanzer    3   08.06.2020 02:25    0

Ответы
ivanvlasuyk80 ivanvlasuyk80  08.06.2020 02:26

var a, b: byte;

begin

randomize;

a := random(100);

b := random(100);

if ((a mod 2 = 0) and (b mod 2 = 0)) or ((a mod 2 <> 0) and (b mod 2 <> 0)) then

a := a + 1;

writeln(a,' ',b);

if a mod 2 <> 0 then

writeln(a)

else

writeln(b);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
смайлкот2 смайлкот2  27.06.2019 17:28
Javascript (60 ) объединить эти функции в одну function setprev() { var month = document.control.month.selectedindex - 1; document.control.month.selectedindex = month;...
gbvf1 gbvf1  27.06.2019 17:24
Решить систему логических уравнений...
ангелок76 ангелок76  07.09.2021 15:25
Задание 2. Напишите ваши Ф.И.О. и определите общее кон чество символов. Переведите информацию из одной едините измерения в другую. Фамилия, имя, отчество: .. .. бит,...
эрика96 эрика96  07.09.2021 15:23
Task 7. To work together on a project, you need to transfer 16 files of 32 MB each. Determine the total volume of files and express it in kilobytes....
tanya1502 tanya1502  17.04.2021 15:18
Написать программу на python, которая по заданным трем числам определяет, является ли сумма каких-либо двух из них положительной...
MrDoktordhdhdh MrDoktordhdhdh  17.04.2021 15:28
Найдите все четырехзначные числа которые оканчиваются на 7 кратные 11 и не кратные 7 числа вывести в обратном порядке на Python...
гуманитарийеп гуманитарийеп  19.09.2021 06:30
В 1 рядку деякого тексту розміщується в середньому 60 символів а на 1 сторінці 40 рядків скільки закодованих сторінок цього тексту можна взяти щоб довжина двійкового...
kolisnyk98 kolisnyk98  19.09.2021 06:23
Напишите наибольшее целое число x, для которого истинно высказывание: (x - простое число) И (x ≤ 25)...
sanek2031 sanek2031  19.09.2021 06:19
1. Сколько бит содержится в 16,75 байтах? 2. Сколько бит содержится в 173,25 килобайтах? 3. Сколько терабайтов содержится в 6363 гигабайтах? 4. Сколько мегабайтов содержится...
anulka2 anulka2  07.09.2020 07:50
Объясните, как происходит распределение электронов по уровням (на графическом примере):...

Популярные вопросы