<u>Ответ: 3</u>.
1 - Нет, т.к. используется кирлица,
2 - Нет, т.к. не указан домен, типа .ru; .com и т.д.
4 - Если предположить что есть mur.mil на котором есть папка gleb.1, то вполне возможно, но сам домен mil - это домен ограниченного использования , предназначенный только для военных организаций и учреждений, отвечающих за безопасность страны.
5 - Нет, т.к. не указан домен.
6 - Нет, т.к. это ссылка на сайт ;))))
const n=21;
var a:array[1..n] of integer;
sr:array[1..3] of real;
k,s,i,j:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(11);
write(a[i],' ');
end;
writeln;
k:=n div 3;
for j:=0 to 2 do
begin
s:=0;
for i:=1 to k do s:=s+a[j*k+i];
sr[j+1]:=s/k;
end;
for j:=1 to 3 do write(sr[j]:4:2,' ');
end.
Пример:
3 5 9 10 10 7 7 3 2 10 3 6 5 10 1 7 8 6 9 5 6
7.29 5.57 6.00
Объем видеопамяти равен 512 Кбайт = 524288 байт = 4194304 битразрешающая способность дисплея 800x600= 480000 точекв одну точку можно "загрузить" -1 цвет= 4194304 бит / 480000 точек = 8,738133333333333 = 8 битзначит количество цветов 2^8=256Ответ 256 цветов
№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com -
znanija.com/task/14923730#readmore
<em><u>Pascal:</u></em>
var a:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
end.
<u><em>C++:</em></u>
#include <iostream>
using namespace std;
int main()
{
int a[10];
for (int i = 0; i<10; i++)
{
cout <<"A[" <<i <<"] = ";
cin >>a[i];
}
return 0;
}