Напишите программу, которая находит квадратный корень произведения двух вещественных чисел одинакового знака. в блокноте vbs

A= inputbox("введите первое число") b = inputbox("введите второе число") s= sqr(a*b) msgbox "квадратный корень: " & s

ответ: 33

Объяснение: В "Ж" можно приехать из Е, К, З, В или Б, поэтому N = NЖ = NЕ + NК + N З + NВ + NБ (1)

NЕ = NБ + NК;

NК = NЗ + NИ;

NЗ = NВ + NГ + NД;

NВ = NА + NБ = 1 + 1 = 2;

NБ = NА = 1.

Добавим еще вершины:

NГ = NА = 1;

NД = NА + NГ = 1 + 1 = 2;

NИ = NЗ + NД = NЗ + 2;

Преобразуем первые вершины с учетом значений вторых:

NЕ = NБ + NК = 1 + 12 = 13 ;

NК = NЗ + NИ = 2NЗ + 2 = 10 + 2 = 12;

NЗ = NВ + NГ + NД = 2 + 1 + 2 = 5;

NВ = NА + NБ = 2;

NБ = NА = 1.

Подставим в формулу (1):

N = NЖ = 13 + 12 + 5 + 2 + 1 = 33

program zadacha1; uses crt; const n=5;   //размер массиваvar m: array[1..n] of integer; i: integer; beginwriteln('исходный массив'); for i: = 1 to n do//readln(m[i]); //для ручного ввода оставьте эту строкуbegin //     дляm[i]: =random(101)-50; // случайногоwriteln(m[i]); //   этиend; //writeln('прямой вывод'); for i: =1 to n dowriteln(m[i]); writeln('обратный вывод'); for i: =1 to n dowriteln(m[n+1-i]); end.

 

program zadacha2; uses crt; const n=5; // размер массиваvar m: array[1..n] of integer; i: integer; beginwriteln('исходный массив'); for i: = 1 to n do//readln(m[i]); //для ручного ввода оставьте эту строкуbegin //     дляm[i]: =random(101)-50; // случайногоwriteln(m[i]); //   этиend; //writeln('вывод'); for i: =1 to n doif i mod 2 = 0 then writeln(m[i]); end.

 

program zadacha3; uses crt; const n=5; // размер массиваvar m: array[1..n] of integer; i: integer; beginwriteln('исходный массив'); for i: = 1 to n do//readln(m[i]); //для ручного ввода оставьте эту строкуbegin //     дляm[i]: =random(101)-50; // случайногоwriteln(m[i]); //   этиend; //writeln('вывод'); for i: =1 to n doif (n+1-i) mod 2 < > 0 then writeln(m[n+1-i]); end.