Var k,n:integer;
begin
write('k = (k кратно 3) ');
readln(k);
n:=k div 3 mod 10;
writeln(k,'-я цифра последовательности 101102103…149150 = ',n);
end.
Пример:
<span>k = (k кратно 3) 27
27-я цифра последовательности 101102103…149150 = 9</span>
Var
x:real;
begin
x:=-1.23;
while x<=6.23 do begin
if x<0 then
Writeln('X=',x:5:2,', логарифм определен только для X>0')
else
Writeln('X=',x:5:2,', Y=',5.3*sqrt(abs(x*x*x))+cos(ln(x)+12.6));
x:=x+0.95
end
end.
Результаты
X=-1.23, логарифм определен только для X>0
X=-0.28, логарифм определен только для X>0
X= 0.67, Y=3.8400812285669
X= 1.62, Y=11.7979662317412
X= 2.57, Y=22.3951919304867
X= 3.52, Y=35.2768703313243
X= 4.47, Y=50.1281674989484
X= 5.42, Y=66.7243610613755
(1/a+1/24)*8=1
8/a+8/24=1
8/a+1/3=1
8/a=1-1/3
8/a=2/3
8/a=8/12
a=12
Program zz;
var a:integer;
begin
readln(a);
a:=a mod 10;
if a mod 2=0 then writeln(a,' -четное число')
else writeln(a,' -нечетное число');
<span>end.</span>
Левый столбик ответ: elpack.ty
Правый clock.tt