1) Маска подсети: 11111111.11111111.11110000.00000000
#1.
var n,i,flag:integer;
begin
readln (n);
flag:=0;
while n>0 do
begin
i:=n mod 10;
n:=n div 10;
flag:=flag+1;
end;
if (flag = 2)
then writeln ('Это число двузначное')
else
writeln ('Число не является двузначным');
end.
#2.
var n:integer;
begin
readln (n);
if (n mod 2 = 0) then
writeln ('Это число четное')
else
writeln ('Число не является четным');
end.
Var s,st: string;
<span> a: array[1..255] of integer;
</span><span> i: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> for i:=1 to 255 do a[i]:=0;
</span><span> for i:=1 to length(s) do inc(a[ord(s[i])]);
</span><span> st:='';
</span><span> for i:=1 to length(s) do
</span><span> if ((a[ord(s[i])]>=2) and
</span><span> (s[i] in ['а'..'я'])) then continue
</span><span> else st:=st+s[i];
</span><span> writeln('новая строка: ',st);
end.</span>
строка: Это строка для проверки.
новая строка: Э са для пвеи.
Если нужно, чтобы не различались прописные и строчные буквы, то другой вариант программы:
var s: string;
<span> a: array[1..255] of integer;
</span><span> i,j: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> for i:=1 to 255 do a[i]:=0;
</span><span> for i:=1 to length(s) do
</span><span> if ord(s[i])>32 then
</span><span> begin
</span><span> inc(a[ord(s[i])]);
</span><span> if s[i] in ['а'..'я'] then inc(a[ord(UpperCase(s[i]))])
</span><span> else if s[i] in ['А'..'Я'] then inc(a[ord(LowerCase(s[i]))]);
</span><span> end;
</span><span> j:=0;
</span><span> for i:=1 to length(s) do
</span><span> if (a[ord(s[i])]>=2) then continue
</span><span> else
</span><span> begin
</span><span> inc(j);
</span><span> s[j]:=s[i];
</span><span> end;
</span><span> delete(s,j+1,length(s)-j);
</span><span> writeln('новая строка: ',s);
</span><span>end.
</span>
Var a,b,c:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
c:=sqrt(a*a+b*b);
writeln('c = ',c);
end.
Пример:
a = 3
b = 4
c = 5
#include <iostream>
using namespace std;
int main()
{
int m, n;
cin >> m >> n;
int a[m][n];
for(int i=0; i<m; i++)
for(int j=0; j<n; j++)
cin >> a[i][j];
int me=m/2;
if(me>0)
{
int k=1;
for(int i=2; i<m; i+=2)
{
for(int j=0; j<n; j++)
a[k][j]=a[i][j];
k++;
}
for(int i=m-me; i<m; i++)
for(int j=0; j<n; j++)
a[i][j]=0;
for(int i=0; i<m; i++)
{
for(int j=0; j<n; j++)
cout << a[i][j] << " ";
cout << endl;
}
}
return 0;
}
