Это ряд цифр в информатике. 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.
Var n,k,b : real;beginread (n);k:=0;b:=0;while n>0 do beginb:=(b+1)*(b+1);k:=k+b;n:=n-1;b:=sqrt(b);end;write (k);end.
Если на сайт, просто скопируй в паскаль
Program z1;
var i,n:integer;
a:array [1..100] of integer;
begin
readln (n);
for i:= 1 to 4 do
begin
readln (A[I] );
end;
for i := 1 to 4 do
begin
If A [i] > n then writeln (A [i]);
end;readln;end.
4 нуля находятся в твоём десятичном числе 172,25
var x,y:real;
begin
readln(x);
y:=(sin(x)/Power(20,x))*sqrt(x);
writeln(y);
end.