В объяснении
Объяснение:
program zadacha;
const n= 6, m=6;
var a:array[1..n, 1..m] of integer;
i, j, s, k: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random (100)-50;
write(a[i,j]:5);
end;
writeln;
end;
s:=0;
k:=0;
for i:=1 to n do
for j:=1 to m do
if i>j then
begin
k:=k+1;
s:=s+a[i,j];
end;
writeln('Сумма=',s);
writeln('Количество=',k);
readln;
end.
Аппаратное обеспечение компьютера - это все электронные и механические устройства компьютера.
Структура аппаратного обеспечения персонального компьютера:
системная плата (материнская плата) - на ней размещены: процессор (центральный процессор)+система охлаждения, внутренняя память, системная шина, слоты.
Платы периферии (могут быть встроены в системную плату) - на них размещены контроллеры устройств ввода-вывода+разъемы (контроллеры дисководов, видеокарта, видеоконтроллер, графическая плата), звуковая карта (звуковой контроллер, звуковая плата), сетевая карта (сетевой адаптер, сетевая плата).
Контроллеры других устройств, устройства ввода и вывода (дисководы, дисковод на жестком диске, привод гибких дисков, дисковод для дискет), привод оптических дисков (привод CD-ROM, CD-RW, DVD-ROM, DVD-RW), стример, блок питания, другие устройства.
Рассмотрим подробно каждое устройство и его функции.
Процессор - устройство, выполняющее арифметические и логические операции, и управляющее другими устройствами компьютера.
В его состав входят:
шина адреса - для передачи адреса, куда передаются данные: ячейка памяти или устройство ввода\вывода; шина данных - для передачи самих данных между процессором и памятью или устройством ввода\вывода; шина управления (вс шина) - для передачи сигналов управления (например, сигнал записи или чтения, сигнал обращения к памяти или устройству ввода\вывода).Объяснение:
Var r,d,s,m,a:real;
Begin;
Write('Введите скорость зайца ');
readln(r);
Write('Введите скорость собаки ');
readln(d);
Write('Введите расстояние до леса ');
readln(s);
Write('Введите расстояние между ними ');
readln(m);
a:=s/r;
if (d*a)>=(m+s)
then writeln('Собака догонит зайца')
else writeln('Собака не догонит зайца');
end.
Про круг
Var p,d,l:real;
Begin;
Write('Введите периметр квадрата ');
readln(p);
p:=p/4;
Write('Введите лину окружности ');
readln(l);
d:=(l/pi);
if r<=p
then writeln('Круг войдёт в квадрат')
else writeln('Круг не войдёт в квадрат');
end.