Pascal ABC:
var texts, get: String;
i: Integer;
begin
texts:='Hello , World';
for i:=1 to 7 do
begin
get:= get + texts[i];
end;
WriteLn(get);
end.
<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.
Период = 7249 - четыре(4) цифры
144 : 4= 36
после запятой позиции цифр: (период начинается со 2-ой позиции)
1 2 3 4 5 ..... 142 143 144 145
3 7 2 4 9 .... 7 2 4 9
ответ 4
Var
p, s: real;
begin
readln(p);
s:=sqr(p/4);
writeln(s);
end.