Составьте программу, определяющую,является ли последняя цифра введенного целого числа нечетным числом . Пример ввода: 1245 Пример вывода: 5- нечетное число
wwwnastyazn
продолжение.... var:integer; begin write('введите целое число'); read(a); b:=a mod 10; if b mod 2=0 then writeln('последняя цифра четное число') else writeln('последняя цифра нечетное число') end.
wwwnastyazn
продолжение.... var:integer; begin write('введите целое число'); read(a); b:=a mod 10; if b mod 2=0 then writeln('последняя цифра четное число') else writeln('последняя цифра нечетное число') end.
Answers & Comments
Verified answer
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.
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.
ну это почти тоже самое))