Var
x,rez:integer;
begin
readln(x);
if x mod 2 = 0 then
rez:=x*x
else
rez:=x*x*x;
writeln (x);
end.
1000=(83*12)+4;
Т.е. Пройдет 83 года и 4 месяца--- будет 15 марта.
Сначала немного про значки:
- Λ означает "и" (по-умному - "конъюнкция")
- V означает "или" (по-умному - "дизъюнкция")
- ¬ означает "не" ("отрицание")
Теперь к таблице:
"D и F" будет истиной только когда обе переменных - истина;
"D или F" будет истиной, если истиной является хотя бы одна из переменных;
"не D" - значение просто меняется наоборот
1)681₁₀ = 1010101001₂
2)7250₁₀ = 1110001010010₂<span>
3)843624</span>₁₀ = <span>11001101111101101000</span>₂
Ну, примерно так. можно решить и по-другому