<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function СуммаКвадратовЦифр(Число: integer): integer;
begin
Result := 0;
while Число > 0 do
begin
Result += Sqr(Число mod 10);
Число := Число div 10
end
end;
function ЧислоПервоклассное(Число: integer): boolean;
begin
Число := Abs(Число); // защита от злобных буратинок
var L:=new SortedSet<integer>;
L.Add(Число);
repeat
case Число of
0, 2, 3:
begin
Result := False;
Exit
end;
1:
begin
Result := True;
Exit
end;
else
begin
Число := СуммаКвадратовЦифр(Число);
if L.Contains(Число) then
begin
Result:=False;
Exit
end
else L.Add(Число)
end
end
until False // бесконечный цикл
end;
begin
var (НижняяГраница, ВерхняяГраница) := ReadInteger2;
var Количество := 0;
for var ОчередноеЧисло := НижняяГраница to ВерхняяГраница do
if ЧислоПервоклассное(ОчередноеЧисло) then Inc(Количество);
Количество.Println
end.
<h2>1 100</h2><h2>20 </h2>
Програменое обеспечение персональногокомпьютера
Суть концепции облачных технологий заключается в предоставлении конечным пользователям удаленного динамического доступа к услугам, вычислительным ресурсам и приложениям (включая операционные системы и инфраструктуру) через интернет. Развитие сферы хостинга было обусловлено возникшей потребностью в программном обеспечении и цифровых услугах, которыми можно было бы управлять изнутри, но которые были бы при этом более экономичными и эффективными за счет экономии на масштабе.
Большинство сервис-провайдеров предлагают облачные вычисления в форме VPS-хостинга, виртуального хостинга, и ПО-как-услуга(SaaS). Облачные услуги долгое время предоставлялись в форме SaaS, например, Microsoft Hosted Exchange и SharePoint.
Нельзя не признать, что технологии облачных вычислений имеют огромнейший потенциал, потому что все современные компьютерные продукты постоянно увеличивают свои требования к техническому оснащению компьютера пользователя, что неизбежно ведет к значительным затратам на апгрейд. Особенно требовательной к системным ресурсам становится игровая индустрия. Так что данная технология позволяет решить проблему чрезмерной требовательности приложений к ресурсам конечного пользователя.
Var i : integer; p:int64;
begin
p:=1;
for i:=1 to 17 do p:=p*i;
writeln(p);
<span>end.</span>
Var x, y, z: double;
begin
writeln('Input x');
readln(x);
writeln('Input y');
readln(y);
if (x + y >= 0) and (x + y <> 4) then {необходимо для корректности}
begin
z := (x * x + y * y) / (2 - sqrt(x + y));
writeln(z);
end
else
writeln('Incorrect input');
end.