Роль материнської плати в комп’ютері рівносильна тій, що виконує серце в живому організмі. Точно так же, як «полум’яний мотор» змушує всі органи і системи працювати і взаємодіяти один з одним, материнська плата забезпечує взаємодію всіх компонентів ПК, що підключаються до її роз’ємів, і управляє їх спільною роботою.
Справді, для того, щоб вводяться нами за до клавіатури і миші дані відобразилися на моніторі, необхідно, щоб вони потрапили в оперативну пам’ять, а процесор їх обробив, перетворив в зображення і показав нам на екрані комп’ютера. Всіма цими операціями заправляє саме «материнка».
1)
program test1;
var a:string;
i,n,f:integer;
begin
read (a);
n:=length(a);
for i:=1 to n do begin
if (a[i]>='0') and (a[i]<='9')
then f:=f+1;
end;
write ('Количество цифр= ',f);
end.
2)
program test1;
var i:integer;
begin
for i:=41 to 50 do
write(i:3);
writeln;
for i:=51 to 60 do
write(i:3);
writeln;
for i:=61 to 70 do
write(i:3);
writeln;
for i:=71 to 80 do
write(i:3);
end.
3)
var s: string;
i: byte;
sum,c,k: integer;
begin
sum:=0;
read(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then
begin
val(s[i],c,k);
sum:=sum+c;
end;
writeln('Сумма цифр=',sum);
end.
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ReadArrInteger(3);
a:=a.Sorted.Reverse.ToArray; a.Println;
end.
begin
var (a,b,c):=ReadInteger3('Введите 3 числа->');
if (a>b) and (b>c) then begin Println(a,b,c); exit; end;
if (a>c) and (c>b) then begin Println(a,c,b); exit; end;
if (b>a) and (a>c) then begin Println(b,a,c); exit; end;
if (b>c) and (c>a) then begin Println(b,c,a); exit; end;
if (c>a) and (a>b) then begin Println(c,a,b); exit; end;
if (c>b) and (b>a) then begin Println(c,b,a); exit; end;
end.