Определите значение переменной (с) после выполнения следующего фрагмента программы.ответ запишите в виде целого числас решением а: =20 b: =6 b: =а-3хb if a> b then c: =а+2хb else c: =b+2ха

1. Полная программа:
var a,b,c: Integer;
begin
a:=20;
b:=6;
b:=a-3*b;
if a>b then c:=a+2*b else c:=b+2*a;
writeln(c);
end.

2. c = 24

1 задача:

#include <iostream>

#include <locale>

using namespace std;

int main()

{

   setlocale(LC_ALL, "Russian");

   for (int i = 0; i < 10; i++)

       cout << "Привет, меня зовут..." << endl;

   return 0;

}

2 задача:

#include <iostream>

#include <locale>

#include <cstdlib>

using namespace std;

int main()

{

   setlocale(LC_ALL, "Russian");

   int num = rand() % (20 - 5 + 1) + 5;

   for (int i = 0; i < num; i++)

       cout << "Привет, меня зовут..." << endl;

   return 0;

}

3 задача:

#include <iostream>

#include <locale>

using namespace std;

int main()

{

   setlocale(LC_ALL, "Russian");

   int num;

   int sum = 0;

   cout << "Введите число: ";

   cin >> num;

   if (num >= 0)

   {

       for (int i = 0; i <= num; i++)

           sum += i;

   }

   else

   {

       for (int i = 0; i >= num; i--)

           sum += i;

   }

   cout << "Сумма = " << sum;

   return 0;

}

Язык Pascal
    uses
      crt;
    var
      cs1,cs2,res,change:integer;
      TD:string;
    function FromDec(n,r:longint):string;
    var
      s:String;
    const
      digit:string[16]='0123456789ABCDEF';
    begin
      s:='';
      repeat
        s:=digit[(n mod r)+1]+s;
        n:=n div r;
      until n=0;
        FromDec:=s;
    end;
    function ToDec(n:string;r:longint):longint;
    var
      m,i:longint;
    const
      digit:string[16]='0123456789ABCDEF';
    begin
      m:=0;
      while n[1]='0' do
        delete(n,1,1);
      for i:=1 to length(n) do
        m:=m*r+pos(n[i],digit)-1;
      ToDec:=m;
    end;
    begin
      writeln('Введите из какой CC:');
      repeat
        readln(cs1);
      until
        (cs1>=2) and (cs1<=36);
      writeln('Введите число в соответствии с CC:');
      readln(TD);
      writeln('Введите в какую CC:');
      repeat
        readln(cs2);
      until
        (cs2>=2) and (cs2<=36);
      writeln('Перевод из ',cs1,' CC --> ',cs2,' CC:');
      writeln(FromDec(ToDec(TD,cs1),cs2));
    end.