На паскале:
var a:integer;
begin
writeln('Введите целое положительное число');
read(a);
if a mod 2 = 0 then writeln('Число чётное')
else writeln('Число нечётное');
end.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, n) := (Random(4, 10), Random(4, 10));
Writeln('*** Исходный массив ***');
var a := MatrRandomReal(m, n, -99, 99);
a.Println(8, 3);
Writeln('*** Полученный массив ***');
a.SwapCols(1, a.ColCount - 1);
a.Println(8, 3)
end.
Программа переводит метры в километры
А Б В И Ж Л
А Б В Ж Л
А Г В И Ж Л
А Г В Ж Л
А Г Ж Л
А Г Д Ж Л
А Д Ж Л
А Е Д Ж Л
Шеснадцатиричное 12EC=11354 восьмиричное