Задумано число х. если оно больше 10, то прибавь к нему 2, в противном случае – умножь на 2. составьте блок-схему и программу на языке паскаль алгоритма решения данной . записать трассировочную таблицу при х = 5

Привет, как дела? Что делаешь?

Вариант с процедурой Delete

var
  s:string;
  k:integer;
begin
  Write('Введите слово: '); Readln(s);
  Write('Какую по порядку букву удалить? '); Read(k);
  Delete(s,k,1);
  Writeln('Результат: ',s)
end.

Вариант с функцией Copy

var
  s:string;
  k,n:integer;
begin
  Write('Введите слово: '); Readln(s);
  Write('Какую по порядку букву удалить? '); Read(k);
  n:=Length(s);
  s:=Copy(s,1,k-1)+Copy(s,k+1,n-k);
  Writeln('Результат: ',s)
end.

Вариант с циклами

var
  s,s1:string;
  k,i,n:integer;
begin
  Write('Введите слово: '); Readln(s);
  Write('Какую по порядку букву удалить? '); Read(k);
  n:=Length(s);
  s1:='';
  for i:=1 to k-1 do s1:=s1+s[i];
  for i:=k+1 to n do s1:=s1+s[i];
  Writeln('Результат: ',s1)
end.

Тестовое решение (одинаково для всех вариантов):
Введите слово: Таракан
Какую по порядку букву удалить? 4
Результат: Таркан

Блок-схемы всех вариантов находятся во вложениях

Задание 5

program SumSeq;

 

{$APPTYPE CONSOLE}

 

uses

  SysUtils;

//const m:Integer  ;

var

  i, j, m, s:Integer;

  n: array of Integer;

begin

  s:=0;

  Writeln(m);

  Writeln('vvedite m');

  Readln(m);

  SetLength(n,m);

  for i:=0 to m do

    begin

      j:=Random(10);

      if j<5

         then n[i]:=-1*j

         else n[i]:=j;

      write(n[i], ' ')

    end;

  Writeln;

  Writeln('To continue push >>ENTER');

  Readln;

 

  for i:=0 to m do

    begin

      if n[i]<0

        then s:=s+sqr(n[i])

    end;

   writeln('s=',s);

   readln

 

 

  { TODO -oUser -cConsole Main : Insert code here }

end.