АндреевичОльга641
?>

Преобразуйте в десятичную систему: 1. (babab)8 ; (abvbv)16 2. (bbaab)8; (bavab)16 3. (babba)8; (vbbab)16

Информатика

Ответы

Donleksa2016
Если я правильно понимаю, то вместо букв нужно поставить их порядковый номер в алфавите:
1. 8842 ; 19014178
2. 9290; 2171410
3. 8849; 2236946
ivanovanata36937365
uses
  System.Collections.Generic;

function reverse(const s: String): String;
begin
  if Length(s) = 1 then reverse := s else
    reverse := s[Length(s)] + reverse(Copy(s, 1, Length(s) - 1));
end;

var
  lst: List<string> := new List<string>();
  s, s1: string;

begin
  writeln('Конец последовательности - пустая строка');
  while (true) do
  begin
    readln(s);
    if (s.Length = 0) then
      break
    else
      lst.Add(s);
  end;
  writeln();
  foreach s in lst do
  begin
    if ((s <> lst.Last()) and (s = reverse(s))) then
      writeln(s);
  end;
end.
anadtacia03108988
Var
  a,b,alpha,s:real;
begin
  writeln('Вычисление площади треугольника');
  writeln('Введите (через пробел) длины двух сторон (см) треугольника');
  readln(a,b);
  writeln('Введите величину угла (градус) между сторонами треугольника');
  readln(alpha);
  alpha:=DegToRad(alpha);
  writeln('Площадь треугольника: ',0.5*a*b*sin(alpha),' кв.см.')
end.

Тестовое решение:

Вычисление площади треугольника
Введите (через пробел) длины двух сторон (см) треугольника
25 17
Введите величину угла (градус) между сторонами треугольника
30
Площадь треугольника: 106.25 кв.см.

Вычисление площади треугольника
Введите (через пробел) длины двух сторон (см) треугольника
11 16.3
Введите величину угла (градус) между сторонами треугольника
39
Площадь треугольника: 56.4185730576179 кв.см.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Преобразуйте в десятичную систему: 1. (babab)8 ; (abvbv)16 2. (bbaab)8; (bavab)16 3. (babba)8; (vbbab)16
Ваше имя (никнейм)*
Email*
Комментарий*