Dim a(5,5)
print "введите элементы матрицы:"
for i = 1 to 5
for j = 1 to 5
input a(i,j)
next j
next i
sg=0
sp=0
for i = 1 to 5
sg = sg + a(i,i)
sp = sp +a(i, 5-i+1)
next i
print "сумма элементов главной диагонали ="; sg
print "сумма элементов побочной диагонали ="; sр
Program znanija;
var a,b,c:integer;
begin
write ('Введите 3 числа: ');
read(a,b,c);
if a<b and a<c and b<c then
begin
a*2;
b*2;
c*2;
write ('Числа: ',a, b, c);
end
else write ('Числа упорядочены не по возрастанию');
end.
FOR i = 1 TO 14
s = s + i
NEXT i
<span>PRINT "s=";s</span>
Ответ:
D9
=Если(C9="";"";ВПР(C9;$J$3:$K$7;2;ЛОЖЬ))
Потом скопировать и вставить в D10-D13
Объяснение:
Если ячейка с9 пуста, то ставим пустоту. Иначе вызываем функцию ВПР.
Для установки операционной системы :
1) Заходим в BIOS и устанавливаем загрузку с CD-ROM
2) Втыкаем в CD-ROM установочный диск
3) Выходим из биоса сохраняя настройки
4. Автоматический ребут ( перезагрузка компьютера )
5. Начинается процесс загрузки с CD ( если только имеет верный формат )
6. Далее всё на русском
После установки :
Программа установки проверяет пк
И вводишь данные
всё.
Сделай лучшим решением заранее благодарен