Решить по алгоритму. дан прямоугольный треугольник со сторонами а, в, с, где с - гипотенуза. сторона а=2, сторона в= 3. найти c, s и р.

Объяснение:

Начало

1.  a:=2;

2.  b:=3;

3.  c:=sqrt (a*a+b*b);

4.  S:= a*b/2;

5. P:=a+b+c;

6. ВЫВЕСТИ: c;  S;  P;

Конец

 

//Pascal
var
  A: array [1 .. 5, 1 .. 4] of integer;
  V: array [1 .. 20] of integer;
  i, j, z: byte;
  SUM1, SUM2, SUM3, MIN: integer;
begin
  randomize;
  writeln('***Сгенерированный массив***');
  SUM1 := 0; SUM2 := 0; SUM3 := 0;
  for i := 1 to 5 do
  begin
    for j := 1 to 4 do
    begin
      A[i, j] := random(30);
      if ((A[i, j] >= 0) and (A[i, j] <= 5)) then SUM1 := SUM1 + A[i, j];
      if ((A[i, j] >= 5) and (A[i, j] <= 15)) then SUM2 := SUM2 + A[i, j];
      write(A[i, j]:6)
    end;
    writeln;
  end;
  writeln('Сумма элементов [0 5] = ', SUM1);
  writeln('Сумма элементов [5 15] = ', SUM2);
  MIN := A[3, 1];
  for j := 1 to 4 do if A[3, j] < MIN then MIN := A[3, j];
  writeln('Минимальный элемент в третьей строке = ', MIN);
  writeln('***Вектор***');
  j := 1;
  z := 0;
  while (z < 20) do
  begin
    for i := 1 to 5 do
    begin
      z := z + 1;
      V[z] := A[i, j];
    end;
    j := j + 1;
  end;
  for i := 1 to 20 do writeln(V[i]:6);
  for i := 20 downto 10 do SUM3 := SUM3 + V[i];
  writeln('Сумма последних 10-ти элементов = ', SUM3);
  readln;
end.

Начнём по порядку. Что значит "работа со строками"? Это любое взаимодействие с ними:

Конкатенация (сложение строк, например: "znanija/" + "task/31137639" = "znanija/task/31137639")Сравнение (как по символам (которые выше по значению, те строки и выше), так и по длине)Поиск (например, в строке "znanija/task/31137639" нам нужно найти все наклонные чёрточки "/")Вставка / Удаление / Копирование / Замена / Замена больших букв на маленькие и наоборот

Что же такое форматирование строки? Из определения понятно, что мы уже работаем с конечной строкой. Она намного вкуснее и работать с ней одно удовольствие, особенно для программ общего назначения, где используются вводы номеров, имён, кредитных карточек или любых других текстовых объектов. Например, у нас есть номер: +79123456789. Лично я при написании  одного из своего первого проекта пытался сам написать метод правильного разделения номеров по шаблону: код страны, оператор, идентификатор. Всё это довольно болезненно, поскольку нужно резать строку, выбирать оттуда первые N чисел после I индекса.. В общем - морока. Вместо этого можно делать всё очень просто:

long number = 79123456789;tbLogin.Text = $"{number:+#-(###)-(###)-(##)-(##)}";// output: +7-(912)-(345)-(67)-(89)

Помимо этого, если Вы знакомы с тернарным оператором (сокращенная запись if else), который выглядит как (if else):

условие ? выполнить_если_true : выполнить_если_false;

или так (if else if):

условие ? выполнить_если_true : условие? выполнить_если_true : выполнить_если_false;

То можете использовать его сокращённую версию и в строках, проверяя значение на null:

string defaultName = null;tbPassword.Text = $"{defaultName??"task31137639"}"; // output: task31137639

В общем-то всё, если что-то непонятно - обращайтесь в комментарии.