1 постановка задачи
исходные данные Х,У
результат: текст1 или текст2 или текст3 или текст4 или текст5 или текст6 или текст7
2.Формализация
если (x=0) and (y=0) то вывод текст1 ('это начало координат');
если (y=0) and (x<>0 ) то вывод текст2 ('точка лежит на оси OX');
если (y<>0) and (x=0 ) то вывод текст3 ('точка лежит на оси OY');
если (y>0) and (x>0 ) то вывод текст4 ('точка в 1 четверти');
если (y>0) and (x<0 ) то вывод текст5 ('точка во 2 четверти');
если (y<0) and (x<0 ) то вывод текст6 ('точка в 3 четверти');
если (y<0) and (x>0 ) то вывод текст7 ('точка в 4 четверти')сли
var
x,y: integer;
begin
writeln ('ââåäè êîîðäèíàòû òî÷êè x,y');
read (x,y);
if (x=0) and (y=0) then writeln (''это начало координат');
if (y=0) and (x<>0 ) then writeln ('точка лежит на оси OX');
if (y<>0) and (x=0 ) then writeln ('точка лежит на оси OY');
if (y>0) and (x>0 ) then writeln ('точка в 1 четверти');
if (y>0) and (x<0 ) then writeln ('точка во 2 четверти');
if (y<0) and (x<0 ) then writeln ('точка в 3 четверти');
if (y<0) and (x>0 ) then writeln ('точка в 4 четверти')
end.
Program zadanie;
const lmax=10;
var n,i:integer; a:array [1..lmax] of integer; n1:real; flag: boolean;
begin
repeat
writeln('Введите длину массива меньше ',lmax);
read(n1);
until (n1>0) and (n1<=lmax) and (n1=round(n1));
n:=round(n1);
writeln('Введите целые элементы массива');
for i:=1 to n do
begin
repeat
read(n1);
if (n1<>round(n1)) then writeln('Введите ЦЕЛЫЙ элемент');
until (n1=round(n1));
a[i]:=round(n1);
end;
flag:=false;
i:=0;
repeat
i:=i+1;
if (a[i]mod 2=0) then
begin
flag:=true;
writeln('Номер первого четного элемента - ',i);
end;
until flag or (i=n);
if (flag=false) then writeln('0')
end.
Var a,b,c:int64;
begin
read(a,b,c);
writeln(c);
writeln(a);
writeln(b);
<span>end.</span>
Ip - 192.75.64.98
адрес сети - 192.75.64.0
Следовательно переведем в двоичный код:
192 (10) = 11000000 (2)
75 (10) = 01001011 (2)
64 (10) = 01000000 (2)
98 (10) = 01100010 (2)
192.75.64.98
192.75.64.0
________
255.225.225.х
Следовательно
255 = 11111111 (8 единиц)
Следовательно
8*3=24
01100010
*
00000000
________
10000000 (всего 1 единица)
Следовательно
24+1 = 25
Ответ: 25 единиц