Составте программу вводящую числа если число чётное разделите на 2 если не чётное умножте на 2

137

339

Посмотреть ответы 2

Ответы на вопрос:

mariaspassckay

Информатика

4,5(64 оценок)

Var a: integer; begin write('введите целое число: '); readln(a); if a mod 2 = 0 then a: =a div 2 else a: =a*2; write(a) end.

alexkis228vk

Информатика

4,7(70 оценок)

Чертёжник учится Алгоритм рисования цифры 0 ОПУСТИТЬ ПЕРО СМЕСТИТЬСЯ НА ВЕКТОР (0, 2) СМЕСТИТЬСЯ НА ВЕКТОР (1, 0) СМЕСТИТЬСЯ НА ВЕКТОР (0, -2) СМЕСТИТЬСЯ НА ВЕКТОР (-1, 0) ПОДНЯТЬ ПЕРО СМЕСТИТЬСЯ НА ВЕКТОР (2, 0) алг ЦИФРА_0 нач ОПУСТИТЬ ПЕРО СМЕСТИТЬСЯ НА ВЕКТОР (0, 2) СМЕСТИТЬСЯ НА ВЕКТОР (1, 0) СМЕСТИТЬСЯ НА ВЕКТОР (0, -2) СМЕСТИТЬСЯ НА ВЕКТОР (-1, 0) ПОДНЯТЬ ПЕРО СМЕСТИТЬСЯ НА ВЕКТОР (2, 0) кон