Составьте программу, определяющую,является ли последняя цифра введенного целого числа нечетным числом .
Пример ввода:
1245
Пример вывода:
5- нечетное число
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
продолжение....
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.
Ответ дал:
0
продолжение....
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.
ну это почти тоже самое))
Ответ дал:
0
только вы забыли переменный в оператоте Var
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад