var
a: string;
b: array[1..9]of integer;
sort: boolean;
max, k: integer;
begin
Readln(a);
for var i := 1 to Length(a) do
b[i] := strtoint(a[i]);
sort := false;
while sort = false do
begin
sort := true;
k += 1;
for var i := 1 to Length(a)-1 do
begin
if a[i] < a[i+1] then
begin
sort := false;
var value2 := a[i];
a[i] := a[i+1];
a[i+1] := value2;
end;
end;
end;
write(a[1]);
end.
Программа написана на PascalABC.net
на free pascal или turbo pascal она может не работать
Введите а: -4
Введите b: 12
! Результат работы а: 8
Введите а: -4
Введите b: 6
! Результат работы б: 22
Введите а: 90
Введите b: 40
! Результат работы в: 70
Объяснение:
С++:
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "RUS");
int a, b, c;
//a
cout << "Введите а: ";
cin >> a;
cout << "Введите b: ";
cin >> b;
b = b + a * 2;
if (a > b)
{
c = a + b;
}
else
{
c = b - a;
}
cout << "Результат работы а: " << c << endl;
//б
cout << "Введите а: ";
cin >> a;
cout << "Введите b: ";
cin >> b;
a = a - b * 2;
if (a <= b)
{
c = b - a;
}
else
{
c = a - b;
}
cout << "Результат работы б: " << c << endl;
//в
cout << "Введите а: ";
cin >> a;
cout << "Введите b: ";
cin >> b;
a = a - b * 3;
if (a>b)
{
c = a - b;
}
else
{
c = b - a;
}
cout << "Результат работы в: " << c << endl;
}
#include <sstream>
#include <fstream>
#include <string>
#include <vector>
#include <deque>
#include <queue>
#include <stack>
#include <set>
#include <map>
#include <algorithm>
#include <functional>
#include <cstring>
#include <utility>
#include <bitset>
#include <cmath>
#include <cstdlib>
#include <ctime>
#include <cstdio>
#include <climits>typedef unsigned long long ulol;
typedef long long lol;
typedef long int li;#define mp make_pair
#define F first
#define S second
#define sqr(a) ( (a) * (a) )
#define pb push_back
#define INF 999999999
#define ret(a) cout << endl; system("pause"); return(a)
//#define ret(a) return(a)using namespace std;int main()
{
string s;
cin >> s;
cout << 1 << s << 1;
ret(0);
}