// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln(Range(1,150).Select(i->(i+2)/sqr(i+1)).Sum)
end.
<u><em>Результат выполнения программы:</em></u>5.23613653594721
Ответ:
PS4 , потому что :
Много уникальных функций.
Исклюзивы.
Большое преимущество в играх.
Var
A:integer;
Begin
WriteLn('Введите кол-во секунд');
ReadLn(A);
WriteLn(A div 3600,' ч ',A mod 60,' мин ',A mod 60,' сек')
End.
Люди, которые делают игры - Программисты