Program pr1;
uses crt;
var
n:byte; // Размерность массива
i:byte; // Счетчик массива
a:array[1..20] of real; // Массива чисел
S:real; // Сумма чисел
Begin
clrscr;
write('Введите размерность массива: ');
readln(n);
writeln('Введите ',n,' элементов');
// Блок ввода
for i:=1 to n do
readln(a[i]);
// Блок вывода
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:6:1,' ');
writeln;
readln;
// Блок инициализации
S:=0;
for i:=1 to n do
if(a[i]<5) then
S:=S+a[i];
readln;
writeln('S= ',S);
End.
Program pr1;
uses crt;
var
n:byte; // Размерность массива
i:byte; // Счетчик массива
a:array[1..20] of real; // Массива чисел
S:real; // Сумма чисел
Begin
clrscr;
write('Введите размерность массива: ');
readln(n);
writeln('Введите ',n,' элементов');
// Блок ввода
for i:=1 to n do
readln(a[i]);
// Блок вывода
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:6:1,' ');
writeln;
readln;
// Блок инициализации
S:=0;
for i:=1 to n do
if(a[i]<5) then
S:=S+a[i];
readln;
writeln('S= ',S);
End.
Переводим в 16ю СС:
42 / 16 = 2 (остаток 10, 10 = A)
ответ: 2A.
В 8ю:
42 / 8 = 5(остаток 2)
ответ: 52
В 2ю:
42 / 2 = 21 (ост 0)
22 / 2 = 10 (ост 1)
10 / 2 = 5 (ост 0)
5 / 2 = 2 (ост 1)
2 / 2 = 1 (ост 0)
ответ: 101010
Т.е. делишь число на основание той СС, в которую хочешь перевести до того момента, когда целая часть будет меньше основания СС в которую переводишь, остатки выписываешь снизу вверх.