<em><u>Pascal:</u></em>
var n:longint;
begin
write ('N = ');
readln (n);
if ((n mod 10) mod 2 = 1) then writeln ('YES') else writeln ('NO');
readln;
end.
<u><em>C++:</em></u>
#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;
}
1) Создаешь папку BOX
2)В папке BOX папку LETTER
3) В папке LETTER создаешь текстовый документ peter.txt и kate.txt
4)В папке LETTER создаешь папку WORK
5) В папке WORK создаешь текстовый документ april.txt и may.txt
6)В папке LETTER создаешь папку FREND
7) В папке FREND создаешь папку SCHOOL
8) В папке SCHOOL создаешь текстовый документ mary.txt
9) В папке FREND создаешь текстовый документ sport.txt
Это свойство актуальность.... инфо 2010 года явно стара как этот мир
Var
a:array[1..100]of integer;
n,i,c,k,j,x:integer;
begin
readln(n);
c:=n;
while n<>0 do begin
n:=n div 10;
k:=k+1;
end;
for i:=1 to k do begin
a[i]:=c mod 10;
c:=c div 10;
end;
for i:=1 to k do
write(a[i],' ');
j:=2;
for i:=1 to k do begin
while j<>k do begin
if (a[i]=a[j]) and (i<>j) then
x:=x+1;
j:=j+1;
end;
j:=2;
end;
writeln;
write(x,' повторов');
writeln;i
f x=0 then writeln('все числа различны')
else writeln('числа в числе повторяются')
<span>end.</span>