1 0 0 0
- 1 1
----------
1 0 1
1 0 0 1 1
+ 1 0 1 1
---------------
1 1 1 1 0
1 0 1
x 1 0 1
-----------------
1 0 1
+ 1 0 1
----------------
1 1 0 0 1
Var
n,d,e:integer;
begin
Write('Введите двухзначное число: '); Read(n);
d:=n div 10; e:=n mod 10;
Writeln('Сумма цифр равна ',d+e,', произведение ',d*e);
Writeln('Число, полученное перестановкой цифр ',10*e+d)
end.
<em><u>Тестовое решение:</u></em>
Введите двухзначное число: 29
Сумма цифр равна 11, произведение 18
Число, полученное перестановкой цифр 92
((48*36*48)*8)/1024/8=81 Кбайт.
Вроде так,) строго не суди)
Ответ:
Что то типа того, попробовал проверять, вроде работает
Объяснение:
program example;
var
d,c,a,h:real;
b : real;
function Calculate(d,c,a,h: real): real;
var
Notation: real;
begin
Notation := c + abs(cos(a*h*h)-sin(a*h));
Calculate := d - sqrt(c/Notation);
end;
begin
readln(d,c,a,h);
b := Calculate(d,c,a,h);
write(b);
end.
1 буква это 4 бита
1 слово это 4*5=20 бит
<span>8000 слов = 160000 бит = 20000 байт</span>