1
var n,s,i:integer;
begin
readln(n);
for i:=3 to n do
if (n mod i=0) and (i mod 3=0) and (i mod 2>0) then
s:=s+i;
writeln ('Ответ: ',s);
<span>end.
2
var
n,i:integer;
x,y:real;
begin
readln(x,n);
y:=1;
for i:=1 to n do y:=y*x;
writeln (x,'^',n,'=',y);
<span>end.
</span>
3
</span><span>var n,i:integer;
begin
n:=1;
writeln('Часы ',' Кол-во');
while i<25 do
begin
writeln(i:3,n:6);
n:=n*2;
i:=i+3;
end;
<span>end.</span></span>
Ответ:
Машинный двоичный язык – логическая последовательность “0” и “1”.
Каждая цифра двоичного кода несет количество информации, равное 1 бит.
Целые положительные представляются в компьютере в формате с фиксированной запятой.
Отрицательные с помощью дополнительного кода.
<span>for k:= -1 to1 do = 3 раза
for k: = 10 to 20 do ...21 раз
for k: =20 to 10 do ... 0 раз
k:= 5; r:=15; for i:= k+1 to r-1 do ...9 раз
k:= 5; r:= 15; for i:= 0 to k*r do ...76 раз
k: = r ; for i:= k to r do ..0 раз</span>
5СС
количество трёхзначных чисел (5сс) = 444-100+1;
444 (5сс) =4*5^2+4*5+4=100+24=124 (10cc)
100 (5cc)= 25 (10cc)
124-25+1=120 трёхзначных чисел в 5(сс)