Количество инф в первом тексте к=5, во втором к=8, разница 5/8.
В:=18
А:=18/3
В:=В-3
А:=А-5
Вывести А
Вывести В
Аналогично, заполняем таблицу
Var
n:integer;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
if ((n>999) and (n<10000)) or ((n>-10000) and (n<-999)) then Begin
Write('Сумма цифр числа ',n);
if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then Write(' чётна') else Write(' не чётна');
End
else write('Число ',n,' не четырёхзначное. Перезапустите программу');
End.
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 единиц
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of real;
i,maxi,mini:integer;
s,min,max:real;
begin
randomize;
min:=2147483647;
max:=-2147483648;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(30);
write(ar[i]:6);
if ar[i]>max then
begin
max:=ar[i];
maxi:=i;
end;
if ar[i]<min then
begin
min:=ar[i];
mini:=i;
end;
s:=s+ar[i];
end;
s:=s/n;
ar[maxi]:=ar[maxi]-maxi;
ar[mini]:=ar[mini]+s;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:6);
end.