Войти Регистрация Спроси ai-bota

Уменьшите данное число (х) в 2 раза если оно четное! информатика

Показать ответ

Ответ:

air7789

03.10.2020 23:07

Var
x:integer;
begin
readln(x);
if x mod 2=0 then x:=x div 2;
writeln(x);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

anchousuchixa

30.04.2021 00:51

Определите значение целочисленных переменных a и b после выполнения фрагмента программы. a: =12 b: =5 t: =b b: = a mod b a: =b+a-t a) a=9, b=2 b) a=10, b=2 c) a=5, b=14 d) a=2,...

2005Человек2005

22.02.2023 22:44

Представлять алгоритм в словесной форме...

Marismak

24.08.2021 19:39

Добавьте раздел Список литературы и интернет-ресурсов и включите в него перечень источников информации,которыми вы пользовались при подготовке реферата...

karincabichcov

09.06.2021 14:38

Сравните результаты всевозможных преобразований фрагментов изображений в растровом и векторном редакторах....

Дженнет2001

14.12.2022 14:13

Сравните результаты всевозможных преобразований фрагментов изображений в растровом и векторном редакторах....

Лтвет

05.03.2021 01:02

(Паскаль) Напишите программу, которая для любого двухзначного числа выводит сумму его цифр....

Licona

02.01.2022 08:47

Что будет выведено на экран после данного алгоритма?...

stepabogocev37

25.02.2020 04:10

Текст, содержащий 12 страниц (на каждой странице 32 строки по 64 символа в каждой), закодирован в 8-битной кодировке. Сколько секунд потребуется для передачи этого текста по линии...

iroytblatилья

19.03.2023 19:25

1)Выпишите имя каталога, путь к файлу, его расширением: С:\Мои документы \фото \2007\ портрет.jpg2)В некотором каталоге хранился файл Лермонтов.doc После того как в этом каталоге...

Вкуснополлия

20.07.2022 04:47

Найти все решения уравнения J/\K/\(N\/L)/\M/\N=1...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку