Ответ:
Объяснение:
Program prog;
var
res:=0;
begin
for var i:= 100 to 999 do
begin
if i mod 26 = 11 then res+=1
end;
println(res);
end.
Program qwe;
var A:longint;
s:byte;
begin
write('Введите число: ');
readln(A);
s := 0;
A := abs(A);
while A > 0 do
begin
if not odd(A) then
inc(s, A mod 10);
A := A div 10
end;
writeln('Сумма чётных цифр = ', s);
readln
<span>end</span>
var a, b, c: integer;
begin
readln(a, b, c);
if (a=-b)or(a=-c)or(b=-a)or(b=-c)or(c=-a)or(c=-b) then writeln('TRUE') else writeln('FALSE');
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 единиц
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var n:=ReadInteger;
var p:=1.0;
for var i:=1 to n do p:=p*i;
write(p);
end.