<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c:=ArrRandom(ReadInteger('n='),-50,50); c.Println;
var imax:=c.IndexMax;
c:=c?[:imax]+c?[imax+1:]; c.Println
end.
<u>Пример</u>
n= 15
-5 -23 44 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33
-5 -23 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33
как проверить , не превышает ли число 1000, при таком условии ,я без понятия
#include<iostream>
int main()
{
unsigned int a;
std::cin>> a;
std::cout<<a+2-a%2;
}
OOH, СССР, ГДР, ВУЗ, МГУ, <span> SOS</span>
Ответ:
program Multi;
var
a, b: Real;
begin
Write ('Введите 2 числа: ');
ReadLn (a, b);
if a * b > 0 then
WriteLn ('Произведение положительно')
else if a * b < 0 then
WriteLn ('Произведение отрицательно')
else
WriteLn ('Произведение равно 0');
ReadLn;
end.
2^i = I, где I - кол-во возможных вариантов (в данном случае кол-во дорожек), а i - кол-во полученной информации (в битах). Решаем:
2^i = 8; 2^3 = 8; i = 3 ,бита.
Ответ: 3 бита.