Перевести из Паскаля на Кумир программы: ЗАДАНИЕ 1
Var
i, s1, s2, s3, s4, n: integer;
begin
write('n = ');
readln(n);
s1 := 0;
for i := 1 to n do
begin
s1 := s1 - i;
s2 := s2 - sqr(i);
if i mod 2 = 0 then s3 := s3 - i;
end;
for i := 10 to 99 do s4 := s4 - i;
writeln('Сумма обратных n натуральных чисел: ', s1);
end.
ЗАДАНИЕ 2
Program factorial;
begin
var A := ReadLnInteger('Введите факториал числа A =');
Write(A, '!! = ');
var B : integer := A;
while A > 2 do
begin
A -= 2;
B *= A;
end;
WriteLn(B);
end.
ЗАДАНИЕ 3
var i,j,n:integer;
sum,d:real;
begin
writeln('Введите n');
readln(n);
sum:=0;
for i:=1 to n do
begin
d:=0;
for j:=1 to i do
d:=d+sin(j);
sum:=sum+1/d;
end;
writeln(sum:8:3);
readln;
end.
ЗАДАНИЕ 4
Program Zad4;
var m,n,x,y:integer;
begin
writeln('Введите натуральные числа m,n');
readln(m,n);
if m y:=x;
while x begin
if (x mod m=0)and(x mod n=0) then write(x,' ');
x:=x+y;
end;
end.
16^у Мбайт = 8^х бит
16^у = 8^х /8/1024^2
2^(4 y + 23) = 2^(3 x)
y = (3 x)/4 - 23/4
целочисленные решения имеют вид
x = 4 n + 1, y = 3 n - 5, n∈Z
если при этом предположить, что в рпавой части равенства минимум должен быть минимум 1 бит, то минимальное целое x = 1
Первые решения
16^у Мбайт = 8^х бит
16^(-5) Мбайт = 8^1 бит
16^(-2) Мбайт = 8^5 бит
16^1 Мбайт = 8^9 бит
16^4 Мбайт = 8^13 бит
16^7 Мбайт = 8^17 бит
16^10 Мбайт = 8^21 бит
Дальше ещё много решений :)
32^х Кбайт = 2^у Мбайт
32^х /1024 = 2^у
2^(y + 10) = 2^(5 x)
y = 5 x - 10
и решения
32^0 Кбайт = 2^(-10) Мбайт
32^1 Кбайт = 2^(-5) Мбайт
32^2 Кбайт = 2^(0) Мбайт