2) 01 N - 10 O - 01 N - 000 A - 11 M - 001 E
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10,0,20).Println;
a:= a.Where((v,i) -> i <> 4).ToArray;
a.Println;
end.
Var x,y,U, S:integer;
begin
readln (x,y);
S:=x+y;
if (S>100) then U:=S/2;
if (S<100) then U:=S; (зависит от условия. по-моему, в задании неправильно поставлено второе условие.)*
writeln (U);
end.
*если в условии написано
"в противном случае умножить на два, то
if (S<100) then U:=S*2;
а если оставить число неизменным, то
if (S<100) then U:=S;
//Не знаю, что Вы хотели сделать этим for(a<=b...
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int a,b=0;
cin>>a>>b;
for(int i=a;i<=b;i++)
cout<<i<<endl;
for(int i=b;i<=a;i++)
cout<<i<<endl;
cin.get();
cin.get();
return 0;
}
Пример ввода 1:
5
1
Пример вывода 1:
1
2
3
4
5
Пример ввода 2:
1
5
Пример вывода 2:
1
2
3
4
5
64 символа - это 6 бит на хранение каждого, т.к.
2^6 = 64
Всего симовлов 100
информационная ёмкость сообщения 6*100 = 600 бит