//Задача 1
var d:integer;
begin
readln(d);
if d mod 2 =0 then
Writeln('Четное')
else
Writeln('Не четное');
<span>end.
//Задача 2
var d:integer;
begin
readln(d);
if d mod 3 =0 then
Writeln('Делится') else
Writeln('Не делится');
<span>end.</span></span>
Var k:integer;
function sr(n:integer):real;
var i,s:integer;
begin
s:=0;
for i:=1 to n do s:=s+i*i;
sr:=s/n;
end;
begin
write('k='); readln(k);
writeln('Среднее арифметическое = ', sr(k));
end.
Пример:
k=5
Среднее арифметическое = 11
Sub pp()n1 = 1k1 = 20n2 = 1DoCells(n2, 2) = Cells(n1, 1)n2 = n2 + 1Cells(n2, 2) = Cells(k1, 1)n2 = n2 + 1k1 = k1 - 1n1 = n1 + 1Loop Until n1 > 10End Sub
В результате получится бесконечная дробь:
1110001,000111001110...
Двоичная дробная часть числа будет конечной, только если дробная часть исходного числа конечна и <u>заканчивается на 5</u>.
В двоичной системе счисления дроби записываются так же, как в десятичной - целая часть до запятой (или до точки), дробная - после запятой.