Program pr1; var a:integer; begin writeln('Введите число'); readln(a); if a mod 2 = 0 then writeln('Это число чётное') else writeln('Это нечётное число'); end.
program pr2; var i, sum:integer; begin sum:=0; i:=2; while (i<=13) do begin writeln(i); if (i mod 2 = 0) then begin sum:=sum+i; end; i:=i+1; end; writeln('Сумма чётных чисел: ', sum); end.
var a:integer; begin writeln('Введите целое число'); read(a); if ((a mod 10) mod 2=1) then writeln('Последняя цифра числа - нечетная.') else writeln('Последняя цифра чиста - четная.'); end.
Var n:integer; begin readln(n); n:=n mod 10; if n mod 2 = 0 then writeln('Цифра ',n,' является четной') else writeln('Цифра ',n,' не является четной'); end.
var n,i:integer;
begin
readln(n);
i := n mod 10;
if i mod 2 = 0 then
writeln('Не является')
else
writeln('Является');
end.
#include <stdio.h>
int main(void)
{int n; scanf("%d",&n);
if((n|1)==n)
printf("Yes");
else
printf("No");
return 0;}
Пример ввода:
123
Пример вывода:
Yes
Even - чётное, Odd - нечётное
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
int main()
{
int x;
cout << "Enter the number: ";
cin >> x;
if(x % 10 % 2 == 0)
{
cout << "Even" << endl;
}
else
cout << "Odd" << endl;
return 0;
}
var a,b: integer;
begin
write('vvedite chislo');
readln(a);
b:=a mod 10;
if b mod 2 =0 then write('chislo chetnoe') else write('chislo nechetnoe');
readln;
end.
var n:longint;
begin
write ('N = ');
readln (n);
if ((n mod 10) mod 2 = 1) then writeln ('YES') else writeln ('NO');
readln;
end.
C++:
#include <iostream>
using namespace std;
int main()
{
long n;
cout <<"N = ";
cin >> n;
if ((n%10)%2==1)
cout <<"YES" <<endl;
else cout <<"NO" <<endl;
return 0;
}
var a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2 = 0 then
writeln('Это число чётное')
else
writeln('Это нечётное число');
end.
program pr2;
var i, sum:integer;
begin
sum:=0;
i:=2;
while (i<=13) do
begin
writeln(i);
if (i mod 2 = 0) then
begin
sum:=sum+i;
end;
i:=i+1;
end;
writeln('Сумма чётных чисел: ', sum);
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.
var a:integer;
begin
readln(a);
a:=a mod 10;
if a mod 2=0 then writeln(a,' -четное число')
else writeln(a,' -нечетное число');
end.
begin
writeln('Введите целое число');
read(a);
if ((a mod 10) mod 2=1) then writeln('Последняя цифра числа - нечетная.')
else writeln('Последняя цифра чиста - четная.');
end.
Begin
readln(n);
writeln(n mod 10 mod 2=1); // True, если нечётное, False, если чётное
End.
n:integer;
begin
readln(n);
n:=n mod 10;
if n mod 2 = 0 then writeln('Цифра ',n,' является четной')
else writeln('Цифра ',n,' не является четной');
end.