Question

Составьте программу, определяющую,является ли последняя цифра введенного целого числа нечетным числом .
Пример ввода:
1245
Пример вывода:
5- нечетное число

Answer 1

Program pr;
uses crt;

Var a, x:integer;

Begin

Writeln('Vvedite chislo');
readln(a);

x:=a mod 10;

if x mod 2=0
   then Writeln('Chotnoe')
   else Writeln('ne chotnoe');
  
   readln;
   end.

Answer 2

продолжение....
var:integer;
begin
write('введите целое число');
read(a);
b:=a mod 10;
if b mod 2=0 then writeln('последняя цифра четное число') else writeln('последняя цифра нечетное число')
end.

Answer 3

продолжение....
var:integer;
begin
write('введите целое число');
read(a);
b:=a mod 10;
if b mod 2=0 then writeln('последняя цифра четное число') else writeln('последняя цифра нечетное число')
end.

ну это почти тоже самое))

Answer 4

только вы забыли переменный в оператоте Var