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

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

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

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

Program pr;uses crt;Var a, x:integer;BeginWriteln('Vvedite chislo');readln(a);x:=a mod 10;if x mod 2=0   then Writeln('Chotnoe')   else Writeln('ne chotnoe');      readln;   end.