1. Информатика
  2. Вывести на экран только четные

Вывести на экран только четные числа сгимилированые случайным образом

SashaLas SashaLas    1   25.03.2019 01:40    0

Ответы
aspier2016 aspier2016  07.06.2020 04:03

var
i,j,k:integer;
begin
randomize;

k=random(999);

if k mod 2 <> 0 then

k:=k+1;

write(k);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
natakubkina78 natakubkina78  21.10.2020 18:29
С какой скоростью передается файл размером 2048 бит, если на это уходит 32 секунды?...
ChelovekNosok ChelovekNosok  13.03.2019 22:52
Реализовать программу, выполняющую подсчет максимального количества подряд идущих элементов в целочисленном массиве длины 50. программы выполняет вывод максимальной...
romkastolz romkastolz  27.07.2019 07:10
Нужно полностью составить программу,от начала и до конца: сформируйте одномерный массив из 20 целых чисел больших 10,но меньших 20 случайных образом.определите сколько...
ruslanbaxsiev79 ruslanbaxsiev79  27.07.2019 07:10
Впоисках нужного файла витя последовательно переходил из каталога в каталог, при этом он несколько раз поднимался на один уровень вверх и несколько раз опускался...
Фара1323 Фара1323  27.07.2019 07:10
(abc paskal)нужно полностью составить программу,от начала и до конца: дан массив из 10 целых чисел.удалите из него первый элемент кратный 3...
botvinaanna80 botvinaanna80  08.04.2021 13:14
підйомний кран потужністю 5 квт рівномірно піднімає на висоту 10 м вантаж масою о,5 т за 20 с. визначте ккд крана....
Jinx2002 Jinx2002  08.04.2021 13:14
Математика 7 класс,задача на картинке...
Lokator505 Lokator505  08.04.2021 13:14
Прочитайте отрывок из исторического источника и ответьте на вопрос​...
Илья281382 Илья281382  08.04.2021 13:14
Скількома можна вибрати одну кульку з ящика, у якому лежать 5 білих і 5 чорних кульки? *​...
варвора варвора  08.04.2021 13:14
Rules and respect Type in an appropriate word according to the definition. Type in no more than one word.good for your health - a person who teaches people to improve...

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