Устройство для ввода информации путём нажатия клавиши

Клавиатура

Решение со смещением всех последующих элементов.  program znanija; const n = 21; // n + 1 var  a: array[1..n] of integer; m, i: integer; begin write('введите позицию для вставки: '); readln(m); if (m< 1) or (m> n-1) then begin  writeln('недопустимое значение m');   exit; end; write('массив до вставки: '); for i : = 1 to n-1 do begin  a[i] : = random(100);   write(a[i], ' ');   end; writeln(); for i : = n - 1 downto m do // смещение a[i+1] : = a[i];       a[m] : = 10;   // вставка write('массив после вставки: '); for i : = 1 to n do  write(a[i], ' '); end.

Условие:   написать программу, которая проверяет, является ли четным введенное пользователем целое трехзначное число. путь решения: сохраняем в переменную введенное пользователем число, например в a  получаем остаток деления на 2 и сравнимаем с 0. если равен, то число - четное  иначе  не четное. p.s. так как число a используется в программе меньше или равно 1 раз, то это число можно не сохранять, а сразу работать с ним, в месте вызова функции. используемые языки: pacal, python, javascript язык: pascal //fpc 3.0.0 var     a: integer; begin     read(a);     if (a mod 2 = 0) then write('введенное число четное')     else write('введенное число нечетное'); end. или //pascalabc.net (версия 3.2, сборка 1363) begin   print(readinteger() mod 2 = 0 ? 'введенное число четное' : 'введенное число нечетное') end. язык: python print('введенное число ' + ('нечетное', 'четное')[int( % 2 == 0]) язык: javascript alert('введенное число ' + (number( % 2 === 0 ? 'четное': 'нечетное'));