Потрібно перетворити в мову програмування с++ program project_420_2; {$apptype console} uses sysutils; var x,y,s: real; i,j: byte; begin y: =1; s: =1; write('x = '); readln(x); for i: =1 to 5 do begin for j: =1 to 4 do s: =s(ij+1)/2x; y: =ys; end; writeln('y = ',y); readln; end.

👇

Ответ:

saqo2017

07.07.2021

#include <iostream>
using namespace std;
int main() {
   double x, y, s;
   int i, j;
   y = 1;
   s = 1;
   cout << "X = ";
   cin >> x;
   for (i = 1; i <= 5; i++) {
       for (j = 1; j <= 4; j++)
       s = s * (i * j + 1)/2 * x;
       y = y * s;
   }
   cout << "Y = " << y << endl;
    system("pause");
    return 0;
}

4,7(83 оценок)

Открыть все ответы

Ответ:

тетямотя7

07.07.2021

Общее решение, позволяющее удалять из строк любой "мусор"

// PascalABC.Net 3.0, сборка 1066
procedure CheckString(var s:string; var n:integer);
var
i:integer;
begin
i:=Length(s);
while i>0 do begin
    if not(s[i] in ['a'..'z']) then Delete(s,i,1);
    Dec(i)
end;
n:=Length(s)
end;

var
s1,s2:string;
i,p,n1,n2:integer;
begin
Write('Введите первую строку: '); Readln(s1);
CheckString(s1,n1);
if n1=0 then Writeln('Введенная строка не содержит допустимых символов')
else begin
    Write('Введите вторую строку: '); Readln(s2);
    CheckString(s2,n2);
    if n2=0 then Writeln('Введенная строка не содержит допустимых символов')
    else
      { теперь обе строки содержат только маленькие латинские буквы }
      if n1=n2 then begin
        for i:=1 to n1 do begin
          p:=Pos(s1[i],s2);
          if p=0 then Break
          else Delete(s2,p,1)
          end;
        if Length(s2)=0 then Writeln('Решение имеется')
        else Writeln('Решения нет')
        end
      else
        Writeln('Решения нет');
    end
end.

Тестовое решение:
Введите первую строку: this is my own deal!
Введите вторую строку: Тест: *is now=l2ead my   sthi?
Решение имеется

Также имеется современное решение, которому пока что в школах не учат:
// PascalABC.Net 3.0, сборка 1066
begin
var s1:=ReadString('Введите первую строку: ').Where(x->x in ['a'..'z']);
if s1.Count=0 then
    Writeln('Введенная строка не содержит допустимых символов')
else begin
    var s2:=ReadString('Введите вторую строку: ').Where(x->x in ['a'..'z']);
    if s2.Count=0 then
      Writeln('Введенная строка не содержит допустимых символов')
    else
      if s1.Except(s2).Count>0 then Writeln('Решения нет')
      else Writeln('Решение имеется')
    end
end.

4,8(72 оценок)

Ответ:

clydeofficial

07.07.2021

ответ с Объяснением:

23. По моему методу:

Запишем степени 2, начиная с 0 слева направо:

16 8 4 2 1

1 0 1 1 1

ответ: 10111₂

Под степенями записано сколько раз степень 2 влезет в число. Распишу на примере двоичной системы. У нас есть число 23. Максимальная степень 2 которая в это число влезет - 16. Она влезает в число 23 1 раз. Записываем 1, а на правые числа оставляем остаток. Было число 23, отняли 16 * 1, получилось 7. В семерку число 8 не влезает, поэтому пишем 0 раз и оставляем остаток: 7 - 8 * 0 = 7. Так же проделываем с остальными числами. Последнее число должно быть единицей - любое число в 0 степени. Нижние цифры и получились ответом - 10111₂, можете загуглить и проверить.

С шеснадцатеричной системой, как и с любой другой, все обстоит точно так же. Только в 16 системе добавляются цифры: А = 10, В = 11, С = 12, D = 13, E = 14, F = 15. Запишем степени числа 16 и решим пример:

16 1

1 7

ответ: 17₁₆

С восьмеричной системой все разумеется так же

8 1

2 7

ответ: 27₈

4,7(89 оценок)

Это интересно:

Взаимоотношения

23.02.2021

Как ответить тому, кто ненавидит вас: советы психологов...