Const n=15;
var a,b,c:array[0..n] of integer;
s_a,s_b:string;
i:integer;
Begin
readln(s_a);
readln(s_b);
while length(s_a)<n do s_a:='0'+s_a;
while length(s_b)<n do s_b:='0'+s_b;
for i := n downto 1 do begin
a[i]:=strtoint(s_a[i]);
b[i]:=strtoint(s_b[i]);
c[i]:=c[i]+a[i] + b[i];
c[i-1]:=c[i] div 10;
c[i]:=c[i] mod 10;
end;
writeln;
for i:= 0 to n do write(a[i]);
writeln;
for i:= 0 to n do write(b[i]);
writeln;
for i:= 0 to n do write(c[i]);
End.
1) а) Записываем число и остаток от деления на 2 (8, 16). б) Если число больше 1, делим на 2 (8, 16) и возвращаемся к шагу а).
В двоичной системе:
24710 012355 16177 13088 01544 0772 0386 0193 196 048 024 012 06 03 11 1Записываем остатки в обратном порядке: 110000010000110 (в 2й системе)
В 8-й системе:
24710 63088 0386 248 06 6Записываем остатки в обратном порядке: 60206 (в 8й системе)
В 16-й системе:
24710 61544 896 06 6Записываем остатки в обратном порядке (заменяя остатки более 9, если такие есть: 10 на А, 11 на B, 12 на C, 13 на D, 14 на E, 15 на F): 6086
2) Числа по длине в порядке возрастания идут следующим образом: 16-е, 8е и 2е числа. Они все равны, то есть одно и то же число, просто в разных записях (системах счисления).
C++
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian"); // Добавление русского языка
int N;
int *A, *B;
int sub = 0, mult = 1;
cout << "Введите размерность массивов: ";
cin >> N;
A = new int[N];
B = new int[N];
cout << "Инициализация массива A (введите " << N << " элементов): ";
for (int i = 0; i < N; i++)
{
cin >> A[i];
}
cout << "Инициализация массива B (введите " << N << " элементов): ";
for (int i = 0; i < N; i++)
{
cin >> B[i];
}
// Подсчет суммы и произведения всех элементов массива
for (int i = 0; i < N; i++)
{
sub = sub + A[i] + B[i];
mult = mult*A[i] * B[i];
}
cout << "Сумма всех элементов массивов: " << sub << endl;
cout << "Произведение всех элементов массивов: " << mult << endl;
return 0;
}
Растровые изображения используются для печати фотографий т. к. хорошо передают плавность градиентов.
Векторную графику используют для (как не странно) графики. т. е. для иллюстраций, логотипов и т.п. Для печати её редко используют из-за сложности.
var a:array[1..10] of integer;
i,s,n,k:integer;
Begin
read(n);
for i := 1 to n do begin
read(a[i]);
if a[i]>0 then begin
s:=s+a[i];
k:=k+1;
end;
end;
writeln(s, s/k);
End.
