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

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.

Comments

можно так

program task1;

---

можно.

---

там можно все что угодно писать, главное чтобы слово не начиналось с цыфры

---

это имя программы

---

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

---

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

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

---

да, можно и так

---

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

---

Var a, b:integer;