Frac(x) возвращает дробную часть действительного числа x
Например, frac(2017.2018) = 0.2018
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
Program n1;
var x, a, S: real; i: integer;
begin
readln(x);
S:=0;
for i:=0 to 21 do
begin
a:=(i/10)*x;
S:=a+S;
end;
writeln(S);
end.
1) с,д,ж,з.
2) б.
3) Не знаю :)
4) с.
5) б.
6) а.
7) с.
8) б.
9) Чтобы не соврать, тоже не знаю :)