// F#
let rec getNumberFromConsole _ =
let str = System.Console.ReadLine()
let mutable number = 0
if System.Int32.TryParse(str, &number)
then number
else getNumberFromConsole null
let rec getCommonNumber number1 number2 commonNumber multiplier =
if number1 > 0 && number2 > 0
then getCommonNumber (number1 / 10) (number2 / 10) (commonNumber + (number1 % 10) * 10 * multiplier + (number2 % 10) * multiplier) (multiplier * 100)
else commonNumber
[<EntryPoint>]
let main argv =
let number1 = getNumberFromConsole null
let number2 = getNumberFromConsole null
let result = getCommonNumber number1 number2 0 1
System.Console.WriteLine result
System.Console.ReadKey true |> ignore
0
<span>
</span>
Объем сообщения I=650 битов
Количество символов K=130
I=К*i => i = I / K = 650/130=5 битов
ответ:5 битов.
Var
a, b, c, d: real;
begin
write('Введите значения коэффициентов квадратного уравнения: ');
readln(a, b, c);
if a = 0 then
writeln('Это не квадратное уравнение!')
else begin
D := b * b - 4 * a * c;
if D > 0 then begin
writeln('Уравнение имеет два корня:');
writeln('x1 = ', (-b - sqrt(D)) / (2 * a));
writeln('x2 = ', (-b + sqrt(D)) / (2 * a));
end else if D = 0 then begin
writeln('Ураннение имеет один корень:');
writeln('x = ', -b / (2 * a));
end else
writeln('Уравнение не имеет действительных корней');
end;
end.
import java.util.Random;
import java.lang.Math;
import java.util.function.Function;
public class ot_1_do_100 {
public static void main(String[] args) {
Random r = new Random();
int s =0; int k;
int[] Array;
Array = new int[15];
for (k = 1; k <= 15; k++) {
int n = r.nextInt(15); //Диапозон рандома (от 0 до 14) + присвоение
s += n;
System.out.print(n + " "); //Вывод рандомных чисел
}
System.out.print(s); // Сумма всех чисел
}
}
Объяснение: Это язык Java