<h1>Устройства компьютера</h1>
<p>
Настольный компьютер обычно состоит из системного блока и подключенных к нему внешних устройств
</p>
<h1>Системный блок</h1>
В системной блоке расположены
<ol>
<li>Материнская плата</li>
<li>Процессор</li>
<li>Внутренняя память</li>
<li>Винчестер</li>
<li>Блок питания</li>
</ol>
<h1>
Внешние устройства
</h1>
Внешние устройства можно разделить на группы
<ul>
<li>Устройство ввода - через них человек вводит информацию в компьютер
<li>графический планшет</li>
<li>микрофон</li>
<li>сканер</li>
</ul>
</li>
...
Дальше нет примера =(
1)
const
n=3;
var
a:array [1..n,1..n] of integer;
i,j,count:integer;
begin
count:=0;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(21)-10;
write(a[i,j]:4);
if (a[i,j] < 5) and (a[i,j] > 0) then
inc(count);
end;
writeln;
writeln('Количество элементов меньше пяти, но больше нуля равно ',count);
end.
2)
t,o:integer;
write('Купленное количество тетрадей: '); readln(t);
write('Купленное количество обложек: '); readln(o);
t:=t*100; o:=o*50;
writeln('Итоговая сумма покупки: ',t+o)
<h1>Устройства компьютера</h1>
<p>
Настольный компьютер обычно состоит из системного блока и подключенных к нему внешних устройств
</p>
<h1>Системный блок</h1>
<p>
В системной блоке расположены
</p>
<ol>
<li>Материнская плата</li>
<li>Процессор</li>
<li>Внутренняя память</li>
<li>Винчестер</li>
<li>Блок питания</li>
</ol>
<h1>
Внешние устройства
</h1>
<p>
Внешние устройства можно разделить на группы
</p>
<ul>
<li>Устройство ввода - через них человек вводит информацию в компьютер
<ul>
<li>графический планшет</li>
<li>микрофон</li>
<li>сканер</li>
</ul>
</li>
</ul>
...
Дальше нет примера =(
1)
const
n=3;
var
a:array [1..n,1..n] of integer;
i,j,count:integer;
begin
count:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
if (a[i,j] < 5) and (a[i,j] > 0) then
inc(count);
end;
writeln;
end;
writeln('Количество элементов меньше пяти, но больше нуля равно ',count);
end.
2)
var
t,o:integer;
begin
write('Купленное количество тетрадей: '); readln(t);
write('Купленное количество обложек: '); readln(o);
t:=t*100; o:=o*50;
writeln('Итоговая сумма покупки: ',t+o)
end.