Найдите объём текста, записанного на языке, алфавите которого содержит 128 символов и 2000 символов в сообщении.
126
323
Ответы на вопрос:
var a,b:integer;
x:real;
begin
Randomize;
a:= random(-20,20);
if(a mod 2 = 0) then
writeln(a, ' - Чётное')
else
writeln(a, ' - Нечётное');
end.
Объяснение:
функция рандомайз необходима для получения новых значений, без неё как такового рандома не получится
остальное всё просто, на полученое число приходится остаток от деления, если его нет - число чётное
Популярно: Информатика
-
ася99211.06.2021 23:11
-
Alinwhite26.05.2020 23:57
-
hurremsultan3006.10.2021 16:15
-
KarinaDelacour30.09.2020 18:06
-
лейла30923.08.2021 00:44
-
gagikgrigoryan04.03.2020 07:12
-
Aleksey456904.03.2023 16:08
-
hermoguchiy21.09.2021 23:18
-
emilgasanov07.12.2020 02:30
-
Мария2068428.02.2023 05:24