Var
a: array[1..15] of real;
i: integer;
b, c:real;
Begin
for i:=1 to 15 do
read(a[i]);
for i:= 1 to 15 do
if (((i mod 3)=0) and ((a[i] mod 5)=0) then
Begin
b:=b+a[i];
c:=c+1;
End;
write(b/c);
End.
1017,2 = 1*8^3 +1*8^1+7*8^0 + 2*8 +2*8^(-1)=527,125
111 это в двоичной? если да тогда 111=2^0+2^1+2^2=1+2+4=7
В=11 это запомнить надо
Суть концепции облачных технологий заключается в предоставлении конечным пользователям удаленного динамического доступа к услугам, вычислительным ресурсам и приложениям (включая операционные системы и инфраструктуру) через интернет. Развитие сферы хостинга было обусловлено возникшей потребностью в программном обеспечении и цифровых услугах, которыми можно было бы управлять изнутри, но которые были бы при этом более экономичными и эффективными за счет экономии на масштабе.
Большинство сервис-провайдеров предлагают облачные вычисления в форме VPS-хостинга, виртуального хостинга, и ПО-как-услуга(SaaS). Облачные услуги долгое время предоставлялись в форме SaaS, например, Microsoft Hosted Exchange и SharePoint.
Нельзя не признать, что технологии облачных вычислений имеют огромнейший потенциал, потому что все современные компьютерные продукты постоянно увеличивают свои требования к техническому оснащению компьютера пользователя, что неизбежно ведет к значительным затратам на апгрейд. Особенно требовательной к системным ресурсам становится игровая индустрия. Так что данная технология позволяет решить проблему чрезмерной требовательности приложений к ресурсам конечного пользователя.
Возможно, работа в командной строке cmd
Uses crt ; var n,m:integer; rost,a,b:real; beginwrite('Введите количество учинеков 9а класса: ');readln(n);write('Введите количество учинеков 9б класса: ');readln(m);writeln('Вводите рост каждого из учинеков 9а по очереди');for i:integer :=1 to n do beginwrite(i,': '); read(rost);a:=a+rost;end;a:=a/n; // средний рост 9аwriteln('Вводите рост каждого из учинеков 9б по очереди');for i:integer :=1 to m do beginwrite(i,': '); read(rost);b:=b+rost;end;b:=b/n; // средний рост 9бif a > b then write('Средний рост учеников 9а больше.') else if a < b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');end.
