Вариант без рекурсии - как просил позже
function factorization ( numeric: integer ): integer;
var d: integer;
begin
write(numeric, ' = 1');
d := 2;
while numeric > 1 do
begin
if numeric mod d = 0 then
begin
write (' * ', d);
numeric := numeric div d;
end
else inc(d);
end;
end;
var x: integer;
begin
write('Введите число: ');
readln(x);
factorization(x);
<span>end.</span>
1) 1024=2^10; 768=3*256=3*2^8; 16=2^4
2) 2^10 * 3*2^8 * 2^4 *75= 225*2^22 бит =225*2^19 байт=
=225*2^9 Кбайт =115 200 Кбайт =112,5 Мбайт
ответ: 115 200 Кбайт или 112,5 Мбайт
Системный блок компъютера
Program fantscrin;
const n = 100;
Var a: array [1..n] of integer;
i,j,k,s:integer;
Begin
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] = 0) then break;
k:=k+1;
end;
for i:=1 to k do
write(a[i], ' ');
for i:=1 to k do
if ((a[i] mod 10 = 3)and(a[i] mod 7 = 0)) then s:=s+a[i];
writeln('');
writeln(s);
End.
#include <iostream>
using namespace std;
int main()
{
int x,y;
float p;
float a, b;
cin >> x;
cin >> y;
cin >> p;
a = x + (p/100)*x;
<span>b = (y + (p/100)*y)/100;
</span>cout << a+b;
return 0;
}