1) на Pascal:
var
t,i,j:integer;
a:array[1..4]of integer;
begin
for i:=1 to 4 do
begin
write('Vvedite ',i,'-i 4islo: ');
readln(a<span>);
end;
for i:=2 to 4 do
for j:=4 downto i do
if a[j-1]>a[j] then
begin
t:=a[j-1];
a[j-1]:=a[j];
a[j]:=t;
end;
writeln('Raspolagaem 4isla v poryadke vozrastaniya:');
for i:=1 to 4 do
writeln(a<span>);
readln;
end.
2) на С:
#include <stdio.h>
#include <conio.h>
void main(void){
int n,a,b,c,d;
printf("\nVvedite 4x-znachnoe chislo n: ");
scanf("%i", &n);
a=n/1000;
b=(n-a*1000)/100;
c=(n-a*1000-b*100)/10;
d=n-a*1000-b*100-c*10;
if (a+b==c+d) printf("true");
else printf("false");
getch(); </span></span>
А 000
Б 001
В 010
Г 011
Д 100
И так получаем ДГБАВ = 100 011 001 000 010
Переводим в 8 систему получаем 43102
Переводим в 16 систему получаем 4642
Ответ: 43102 в 8 и 4642 в 16
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.
Пусть "x" - системные блоки, тогда:
2x - мониторы.
x + 8 - системные блоки после того, как принес еще 8 блоков.
Приравниваем эти уравнения, так как по условию задачи после того, как сисадмин принес еще 8 системных блоков, мониторов и блоков стало поровну.
2x = x + 8.
2x - x = 8.
x = 8.
Ответ: 8 мониторов.