Хелп 1)расположите в порядке возрастания 2060кбайт,20байт,200бит,2000байт,2б
2)Сообщение записанное буквами из 64хсимвольного алфавита содержит 116 символов какой объем информации оно несет?
3)Информационное сообщение объемом 6кбайт содержит 6144 символа сколько символов содержит алфавит,при которого записано это сообщение?
Введите а: -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;
}
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 она может не работать