ИК порт - это устройство позволяющее установить беспроводное соединение с любым устройством, тоже имеющим ИК-порт и находящимся в прямой видимости. Это означает, что вязь между устройствами осуществляется посредством лучей ИнфраКрасного диапазона волн (те же что и в модулях дистанционного управления для телевизоров, видеомагнитофонов). Следовательно он - не проводной.
38*46*57=99636символов=797088бит (если в однобайтной кодировке)
=1594176 (если в двухбайтной)
Вода: можно пить, лить, тушить огонь, мыть, играть и т.д. Человек: потребляет пищу, играет, ходит, учится , думает головой, читает книги и т.д.
<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Pow(x,y:BigInteger):BigInteger;
begin
Result:=x;
for var i:=int64(2) to int64(y) do Result*=x
end;
begin
var x,y:integer;
Write('Введите натуральные х и у: '); Read(x,y);
if (x<=0) or (y<=0) then begin
Writeln('Неверный ввод'); Exit
end;
if x=1 then Writeln('Результат: ',y+1)
else begin
var x1:=Range(2,x).Aggregate(BigInteger(1),(a,b)->a*b);
Writeln('Результат ',Pow(x,y)+Pow(y,x1))
end
end.
<u>Пример</u>
Введите натуральные х и у: 5 8
Результат 2348542582773833227889480596789337027375682548908319870707290971532209025114608443463698998384768703032325601
//PascalABC.Net 3.2
begin
var x:=readinteger ('Введите x: ');
var sum:=0;
repeat
sum+=x mod 10;
x:=x div 10;
until x=0;
writeln ('Сумма цифр: ', sum);
writeln ('Сумма заканчивается на 3: ', (sum mod 10)=3);
writeln ('Сумма четная - ', sum.Iseven);
end.