1)запрещается трогать проводы,вилки
2)нельзя трогать компьютер мокрыми руками
3)нельзя включать интернет без разришения учитиля
4)если на компьютере появилось неизвесное вам окно предупредить учителя.
5)не знаю придумай сама(сам)
=)
Используя закон Де-Моргана и двойного дополнения получаем
-(-Av-B)^C = --(A^B)^C = A^B^C
Жаль редактор формул не поддерживает работу с множествами.
<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
"Говорильный" аппарат,
Модный гаджет,связи рад.
Фото,видео снимает,
На звонки он отвечает.
( Телефон)
К празднику, всегда "накрыт",
Полон явств и каждый сыт,
Я бюро и секретер,
Есть компьютерный размер.
<span> ( Стол)
</span>Важных данных я хранитель,
Информации носитель,
Гибкая,так что же это?
Я магнитная ?(Дискета)
Я блокнот и память я,
Есть и электронная.
Записи я все веду,
Всё фиксирую и жду.
<span> </span> (Записная книжка)
Не пищу и не шуршу,
А с компьютером-дружу.
Я курсором управляю,
И командам помогаю.
(Мышка)
Осенью,я всех встречаю.
Летом,просто отдыхаю.
Весь учебный год-учу,
Дарить знания хочу.
(Школа)
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal;
var t:=SeqGen(30,x,y->y*x).Select(y->sin(y)).Any(y->y<0);
Writeln(t);
end.
<u>Примеры</u>
0.73
False
1.18
True